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ABSTRACT 

The  objective  of  this  project  is  to  investigate 
Vertical  Steam  Condenser  Design  in  an  effort  to  develop  low 
weight,  small  volume  condensers  utilizing  doubly  enhanced 
(coolant  and  steam  side  augmentation)  tubes.   An  existing 
vertical  condenser  analytic  model  for  external  axial  fluted 
tubes  was  improved  to  include  internal  (coolant  side)  heat 
transfer  augmentation.   A  computer  program  (VSRTC0N-1)  was 
developed  to  he  used  as  a  preliminary  design  tool  for  sizing 
the  total  condenser.   A  performance  comparison  was  conducted 
between  enhanced  vertical  condensers  t  horizontal  smooth  and 
horizontal  enhanced  tube  condensers. 

This  analysis  has  clearly  demonstrated  that 
significant  reduction  in  condenser  weight  and  volume  can 
be  obtained  for  certain  applications  using  enhanced  vertical 
tube  condensers.   Also,  enhanced  vertical  tube  condenser 
performance  compares  well  with  present  designs  for  enhanced 
horizontal  tube  condensers. 
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.1.   INTRODUCTION 


The  current  practice  in  Marine  Condenser  Design  is  to 
use  smooth  horizontal  tubes.   In  comparison  the  performance 
of  horizontal  tube  bundles  is  generally  lower  than  for  a 
single  tube,  this  deleterious  bundle  effect  depends  on  the 
pattern  of  accumulated  condensate  drainage,  and  the  number 
of  rows  of  tubes  in  a  vertical  array.   This  could  cause  a 
significant  decrease  in  condensing  coefficient  for  large 
tube  bundles.   This  sort  of  phenomena  will  not  occur  in 
vertical  tube  condensers. 

The  heat  transfer  on  these  vertical  tubes  can  be  further 
enhanced  by  grooving  the  external  surface  of  the  tube  (Pig.l). 
Surface  tension  acting  through  gradients  in  the  curvature  of 
the  liquid  meniscus  will  draw  liquid  into  the  grooves.   The 
condensate  is  drawn  off  the  tips  of  the  flutes  so  that  only 
a  thin  liquid  film  remains  on  them.   The  reduced  thickness 
of  the  condensate  film  at  the  flute  tip  dramatically  increases 
the  heat  transfer  coefficient. 

Internal  tube  heat  transfer  augmentation  is  provided 
through  turbulation  techniques  by  the  use  of  integral  multiple- 
helix  ridging  (6)  as  shown  in  Fig.  2.   Therefore,  these  tubes 
with  both  external  axial  flutes  and  internal  helical  ridging 
can  be  said  to  be  doubly  augmented.   The  internal  ridging 
provides  a  cost-effective  form  of  internal  roughness,  which 
results  in  a  substantial  decrease  in  waterside  thermal 
resistance. 

Condensation  on  fluted  surfaces  and  the  resulting  enhance- 
ment of  the  heat  transfer  coefficient  was  first  recognized 
by  Gregorig  (195*0*   I"t  has  been  just  till  recently  that  this 
concept  has  been  put  into  practical  application.   The  exper- 
imental work  that  has  been  completed  has  clearly  shown  that 
the  rate  of  condensation  on  fluted  surfaces  is  several  times 
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greater  than  that  on  smooth  surfaces. 

Presently  work  is  being  done  in  the  determination  of 
optimum  surface  geometry  for  vertical  fluted  condenser  tubes. 
The  basic  principle  for  optimum  performance  is  to  make  the 
thickness  of  the  condensate  film  on  the  crests  of  the  fluted 
surface  as  thin  as  possible,  and  to  effectively  remove 
collected  condensate.   From  analysis  of  MORI  et  al  (3)  the 
basic  controlling  factors  for  optimum  flute  performance  are: 

1.  sharp  leading  edge 

2.  gradually  changing  curvature  of  flute 
surface  from  its  tip  to  the  root 

3.  wide  groove  between  fins  to  collect 
condensate 

h-.     horizontal  disc  set  to  the  tube  to 
remove  condensate  (see  Fig.  3) 

Also,  vertical  tubes  provided  with  longitudinally  parallel 
tiny  flutes  is  preferable  because  condensate  film  is  made 
thinner  over  the  widest  possible  region.   As  vapor  condenses 
on  the  tube  surface  the  grooves  in  the  lower  sections  of  the 
tube  can  fill  up  with  condensate  resulting  in  deterioration 
of  condenser  performance.   The  purpose  of  the  horizontal  discs 
is  to  remove  condensate  thus  preventing  the  deleterious  effects 
of  this  flooding  condition.  The  spacing  of  the  discs  must 
not  be  too  close  together,  since  for  narrow  spacing  of  discs 
surface  tension  can  also  pull  condensate  on  the  discs  up 

along  the  grooves  causing  the  flooding  condition.  Condensate 
removal  for  the  proposed  vertical  condenser  design  (Fig.  *0 
is  accomplished  by  the  tube  support  plates,  where  condensate 
is  collected  and  removed  to  the  bottom  of  the  hotwell  by 
downcomer  drainage  tubes. 

The  flute  pitch  can  also  affect  condenser  performance. 
Flutes  with  small  grooves  (small  pitch)  are  easily  filled 
with  condensate  resulting  in  reduced  performance.  A  tube 
with  flutes  of  too  large  of  a  pitch  has  a  smaller  number  of 
flute  tips,  and  performance  suffers  since  the  heat  transfer 
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Figure  I. 

Cross-Section  of 
Vertical  Fluted 
Condenser  Surface 


disc 


Figure  2. 

Internal  Heat  Transfer 
Augmentation  for  Vertical 

Tube 


Figure  1. 

Vertical  Fluted  Tube  Fitted 
With  Spaced  Circular  Disks 
for  Condensate  Femoval 
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enhancement  effect  is  not  used  to  a  great  enough  extent. 
Therefore,  the  condenser  tube  provided  with  flutes  of  optimum 
pitch  for  a  given  fluid  has  the  best  performance.   The  study 
conducted  by  MORI  et  al  (3)  has  indicated  that  the  optimum 
spacing  of  discs  is  smaller  than  100  mm  (3*9^  in.)  for  water 
and  for  copper  tubes  with  flute  pitch  on  the  order  of 
.5  mm  (.0197  in.)  and  flute  height  of  .87  mm  (.03^+3  in.). 
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FIGURE  J* 

VERTICAL  ENHANCED  TUBE  CONDENSER 
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The  proposed  vertical  condenser  arrangement  for  this 
investigation  is  shown  in  Figure  k.      Steam  enters  the 
condenser  shell  along  a  major  portion  of  the  tube  length. 
Steam  lanes  distribute  the  steam  around  the  tube  bundle  with 
radial  steam  inflow  into  the  tube  bundle  towards  the  air 
cooler  section  and  air  removal  duct.   Steam  condenses  on  the 
vertical  tubes,  and  the  condensate  collects  in  the  valley  of 
the  tube  fluted  surface  flowing  down  the  tube  length.   The 
tube  support  plates  have  a  dual  purpose  by  also  serving  as 
condensate  drain-off  plates.   The  condensate  is  stripped  off 
the  tubes  and  collected  on  the  tube  support  plates,  and  then 
it  is  removed  to  the  hotwell  section  via  downcomer  drainage 
tubes.   Improved  condensate  control  is  afforded  by  this  con- 
densate drainage  and  removal  scheme.   The  tube  support/condensate 
drain-off  plates  divide  the  condenser  up  into  sections,  where 
the  full  depth  of  tubes  in  each  section  see  relatively  fresh 
steam.   The  tubes  will  see  fresh  steam  through  the  depth  of 
the  tube  bundle  since  the  tubes  are  not  subjected  to  condensate 
indundation  effects  because  of  effective  condensate  removal 
and  vertical  orientation  of  the  tubes.  A  continuous  duct 
that  runs  along  the  total  tube  length  is  utilized  for  air 
removal . 

Figure  k   shows  a  double  flow  cooling  water  circuit  with 
the  inlet/outlet  header  located  in  the  bottom  of  the  condenser. 
The  condenser  hotwell  is  located  below  and  also  encases  the 
inlet/outlet  header.  This  hot-well  location  adds  to  the  total 
height  of  the  condenser. 

The  possible  condenser  locations  are  either  along  side 
the  propulsion  turbine  with  side  exhaust  into  the  condenser, 
or  located  in  line  with  the  propulsion  turbines  with  end 
exhaust  into  the  condenser. 
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This  investigation  of  vertical  steam  condensers  will 
clearly  establish  that  for  certain  condenser  operating 
conditions  significant  reductions  in  weight  and  volume 
can  be  achieved.   Performance  comparisons  were  conducted 
with  horizontal  smooth  and  enhanced  tube  condensers.   In 
some  respects  the  vertical  condenser  will  involve  complications 
in  design,  fabrication  and  propulsion  system  integration, 
but  the  techniques  required  are  well  within  the  scope  of 
present-day  technology. 

The  objective  of  this  study  is  to  conduct  a  performance 
comparison  between  enhanced  vertical  steam  condensers, 
horizontal  smooth  and  horizontal  enhanced  tube  condensers. 
The  vertical  condensers  in  this  performance  comparison  were 
sized  using  the  design  routine  established  in  this  study, 
and  compared  with  existing  baseline  horizontal  condenser 
designs. 
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II.   HEAT  TRANSFER  CALCULATIONS 


Nomenclature 

A        area  (ft  ) 

a        amplitude  of  the  flute  (ft) 

Cp       specific  heat  (BTU/lbm°F) 

D,d      Diameter  (ft) 

e        Helical  ridge  height  (ft) 

f        Friction  Factor  [  »(dP//>  )  (D/D  (2g  /v2)] 

G        Mass  Flux  (lbm/ft2  hr) 

g        Gravitational  constant  (lbm  ft/lbf  hr  ) 

h        Heat  transfer  coefficient  (BTU/hr  ft  °F) 

h~  -Latent  heat. of  vaporization  (BTU/lbm) 


fg 


2o. 


K  Thermal  conductivity  (BTU/hr  ft   F) 

L  Length  (ft) 

1  Lead  of  ridge  (axial  distance  per  360  turn) (ft) 

m  Operand  for  friction  factor  equation 

Nu  Nusselt  number 

P  Pressure  (lbf/ft  )  or  (in-hg-abs) 

p  Pitch  of  ridging  or  flute  (ft) 

Pr  Prandtl  number 

Q  Heat  flow  (BTU/hr) 

r  Operand  for  friction  factor  equation 

Re  Reynolds  number 

Re~  Flooding  Reynolds  number  for  flute[-  ^W^/mX,.]** 

R  Thermal  resistance  of  scale  (hrft  F/BTU) 

R  Thermal  resistance  of  tube  wall  (hrft  0F/BTU) 

St  Stanton  number 

T  Temperature  ( °F) 

*T  Tsat"TW  <°F> 

^Tlm  Mean  overall  temperature  difference  (°F) 

U  Overall  heat  transfer  coefficient  (BTU/hrft   F) 
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U  Dimensionless  Velocity[=  u/U*]   * 

U*  Friction  Velocity  jr^g/p  J   * 

V  Velocity  (ft/hr)  or  (ft/sec) 

W-  Flooding  axial  mass  flow  of  condensate  per  flute 
1         (lbm/hr) 

XT  Half-perimeter  length  of  flute  (ft) 


Subs 

cripts 

b 

Fluid  at  the  bulk  temperature  ( °F) 

c 

Condensate 

f 

Fluid  or  flooding 

• 

1 

Inside,  or  inlet 

n 

Nominal 

0 

Outside,  or  outlet 

s 

Increment,  or  section 

sat 

Saturation 

w 

Wall 

Superscripts 

f        Dimensionless  Parameter 


Greek  Symbols 

a  Height  of  the  condensate  in  the  center  of  the 

flute  (ft) 

7       Fragment  of  U  *[=  -2.51n(2e/d, )+  3-75]  * 

2  i 

X       Dimensionless  Group  =  ^p   g   (a0  y*        ** 

2         c   Y 

m       Dynamic  viscosity  (lbm/hr  ft) 

P  Density  (lbm/ft3) 

9  Surface  Tension  (lbf/ft) 

Q       Non-dimensional  group  f 

T       Apparent  wall  shear  stress 

*  Reference  (6) 
**  Reference.  \k) 
f   Reference  (1) 
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II  A.   ANALYSIS  SUMMARY 

The  rate  of  heat  flow  Q  over  an  entire  heat  exchanger 
is  related  to  the  mean  overall  temperature  difference  AT-, 
and  the  total  heat  transfer  area  A  by  the  overall  heat 
transfer  coefficient  U. 

Q=  UA  ATlm    (1) 

From  the  analysis  of  externally  ridged  tubes  it  proves 

convenient  to  base  the  heat  transfer  coefficient  U  on  the 

surface  area  of  a  smooth  tube  having  an  outside  diameter 

n  eaual  to  the  diameter  measured  over  the  mid-height  of 
n  ° 

the  external  flutes  (see  Figure  1  for  external  flute 
geometry) . 

(2a) 


un= 

5) 
-TTDnL 

AT 

lm 

Dn= 

Btf  + 

2a 

where     Dn=  a  4  2a      (2b) 

The  overall  U  depends  on  the  resistances  in  series; 

between  cooling  water  and  the  tube  wall,  within  the  tube 

wall,  and  between  the  tube  wall  and  the  working  fluid. 

Fouling  resistance  on  either  side  of  the  tube  wall  can  be 

combined  in  one  term  R  . 

s 

Tube  wall  resistance  for  a  smooth  (non-enhanced)  tube 
can  be  expressed  as : 


Rw=  1  -  in  (VDi)Dref 


h 


w        K       2 


(3) 


Where  D  -,  is  the  reference  diameter  on  which  the  overall  u 

ret 

is  based  on.   For  a  fluted  tube  the  tube  wall  resistance  is 

also  bas 

written: 


also  based  on  the  nominal  diameter  D  ,  and  equation  can  be 

n       ^- 


Rw=  in  (VjVPa    w 

2K 
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Theref ore ,  the  concept  of  resistances  in  series  yields: 

-§-  *  Vgi  +  r3  +  totyy^  +  x        (5) 

f  2Kv,        X 
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IIB.   WATERSIDE  HEAT  TRANSFER  COEFFICIENTS 

1.   Smooth  Internal  Tube 

For  the  smooth  internal  tube  the  McAdams  correlation 
was  used  for  determination  of  the  heat  transfer  coefficient 
for  cooling  water. 


hD 


K 


b  J 


0.023 


or: 


LGDjf*8 

LMb_ 
1%,  10.8 


MCp 


-,0.4 


(6a) 


hf=  0.023  KbfReD" 
"D 


Wv  °*        (6b) 


where : 

1)  all  fluid  properties  are  evaluated  at  the  bulk  fluid 
temperature ; 

2)  2300<ReD<10?  where; 

Re-.  =  Reynolds  number  based  upon  hydraulic 
diameter 

3)  0.5<Pr,<120  where; 

Pr.s  Prandtl  number  based  on  bulk  temperature 


2.   Helical  Internal  Ridging 

Internal  tube  augmentation  was  also  investigated,  with 
the  application  of  integral  multiple  helix  ridging  [6]  as 
shown  in  Figure  2. 

Friction  factor  data  was  correlated  by  means  of  the 
following  equation: 

1 (7) 


VT 


2. 46 [in  r+(7/Re)m] 


For  the  roughness  of  the  helical  internal  ridge  both  r  and  m 
are  treated  as  variables,  and  are  tied  in  with  tube  geometry, 
Both  m  and  r  vary  with  the  dimensionless  parameter  e/l, 
where  e  is  the  ridge  height  and  1  is  the  lead  of  the  ridge. 
In  reference  [6]  WITHERS  has  made  a  distinction  based  on 
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th  e  criterion  p/ds  O.36  in  correlating  the  friction  "behavior 
to  the  internal  geometry.   It  has  been  proposed  that  a  shift 
in  flow  behavior  occurs  at  p/d  =  O.36.   For  higher  values 
of  p/d  a  greater  degree  of  swirling  could  occur,  compared 
with  cascading  of  flow  that  takes  place  if  p/d  is  less  than 
O.36. 

The  heat  transfer  correlation  equation  developed  from 
data  for  tubes  of  various  configurations,  and  solved  for  the 
Stanton  number  becomes: 

St  =       Vf/8  (8a) 

5.68(e/p)-1/8Vp;[(e/di)Re  f/8]  °  *  13V 

where:    7  =  -[2.5  ln(2e/di)f3 -75]    (8b) 

Then,  h-  becomes: 

K0  Re  Pr  St       (9) 

di 

These  equations  are  applicable  to  Reynolds  number  range 
10,000-120,000,  and  Prandtl  number  range  4-10. 

See  Appendix-B  for  tube  data,  and  friction  factor  char- 
acteristics of  multiple-helix  internal  ridged  tubes. 
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II. C   CONDENSATE  HEAT  TRANSFER  COEFFICIENT 


In  reference-1,  BARNES  developed  an  equation  for  the 
average  value  of  condensate  heat  transfer  coefficient  (h  ) 
for  an  externally  fluted  tube  of  length  L.   In  this 
formulation  h  depends  upon  physical  properties  of  the 
condensing  fluid  geometric  factors,  and  mass  flow  rate 
of  condensate  in  the  flutes. 


r-    =  .602? 

hc 


rhfgWfV0074  a'23°7(Nu^)    ^226^^ 
LaT 


P 
(10) 


fgge 


-,.2307 


AT 


The  non-dimensional  group  Nu  fl*  defined  in  Reference-1  is 
a  function  of  flute  amplitude-to-pitch  (a/p)  ratio.   It 
should  be  noted  in  Equation-10  the  parameter  L  is  the 
length  of  the  tube  between  condensate  drain  off  plates. 

The  parameter  wf  is  the  flooding  axial  mass  flow  of 
condensate  per  flute  (LBM/hr)  which  is  also  a  function  of 
physical  properties  of  the  fluid,  and  tube  geometry.   In 
Reference-^  PANCHEL  and  BELL  defined  the  following  flooding 
Reynolds  number  for  condensate  flow  in  the  axial  flutes: 


Re. 


4wf 

L 


(ID 


mX 


and  an  additional  non-dimensional  group: 

2 


A  =  kP 


g, 


■v* 


LXL  J 


(12) 


where  ao   r  2a  in  the  case  where  the  flute  is  flooded.   Also, 
the  following  correlation  was  developed  for  A-  based  on  the 
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half -perimeter  length  (XL)  of  the  flute: 

Af=  36(a/p)exp(3-33  a/p)  Ref     (13) 

Substituting  equations  (11  and  12)  into  equation  (13)  and 
solving  for  W~  yields: 


2   3 

Wf  ■  8  gc  P        a^p  exp 

9     p 


-3.33(a) 
P 


(1*0 


where  W~  is  now  based  on  full  perimeter  length  of  the  flute. 
See  Appendix-B  for  plot  of  Nun'  versus  a/p  ratio. 
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III.   PROCEDURE  DISCRIFTION  FOR  HSAT  EXCHANGER  SIZING 


The  following  discussion  outlines  the  basic  methodology 
for  condenser  sizing  used  in  this  analysis.   At  this  point  in 
this  discussion,  it  is  assumed  that  basic  condenser  oper- 
ational parameters  have  already  been  determined,  i.e., 
condenser  heat  load  cooling  water  flow  rate,  number  of  tubes, 
coolant  temperature  rise  from  inlet  to  outlet  of  condenser, 
tube  size,  etc. 

1.  In  the  first  step,  divide  the  total  coolant  temper- 
ature rise  from  condenser  inlet  to  outlet  into  small  incre- 
ments of  AT  each,  and  assume  constant  fluid  properties  over 
each  aT_  increment.  If  the  coolant  temperature  rise  for  each 
increment  is  known,  then  the  incremental  heat  transfer  is 
also  known. 

2.  The  next  step  would  be  to  assume  initial  values  for 
L  and  aT  (Tsat  -  Twall)  in  Equation  (10). 

3.  Calculate  overall  U  Equation  (5)  for  the  increment 
after  heat  transfer  coefficients  are  determined. 

^.  The  section  length  is  determined,  then  a  heat  balance 
is  applied  to  the  length  increment  to  obtain  new  calculated 
values  forAT.   These  updated  values  for  aT  and  L  will  serve 
as  input  into  Equation  (10)  for  the  next  iteration. 

5.  Repeat  steps  2-h   until  the  calculated  aT,  and  L  in 
step  k   equals  the  assumed  aT,  and  L  in  step  2. 

6.  In  this  manner  one  can  march  through  the  condenser 
summing  the  individual  increment  lengths  with  the  final  result 
being  the  total  tube  length  required  for  the  condenser. 

Tube  bundle  diameter  was  then  determined  using  acceptable 
values  for  pitch-to-diameter  ratio,  which  was  taken  as  1.35 
here.   Tube  spacing  determined  by  the  pitch-to-diameter  ratio 
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is  based  on  the  tube  outside  diameter  including  the  flutes. 

Calculated  values  for  the  steam  lane  dimensions  along  with 

tube  bundle  dimensions  were  used  to  determine  the  internal 

dimensions  of  the  condenser  shell. 

The  steam  lane  is  the  radial  steam  passage  around  the 
tube  bundle,  whose  width  is  the  radial  distance  between 
the  outer  tube  bundle  diameter  and  the  condenser  shell. 
A  simple  expression  was  established  to  determine  the  steam 
lane  width  using  emperical  data  from  baseline  condensers. 
It  is  desired  to  size  the  steam  lane  width  to  limit  the  main 
steam  lane  entrance  velocity  to  the  below  recommended  values 

Recommended  Maximum 
Condenser  Design  Main  Steam  Lane 

Pressure,  in.  Hg       Entrance  Velocity (ft/sec) 

1  500 

2  ^00 

3  300        (ref  9) 
k  250 

5  200 

This  steam  lane  velocity  can  be  expressed? 

V=   1    W     (15) 
3^00  pk 

Vs   steam  velocity  (ft/sec) 
W=  steam  load  (lb/hr) 
As  flow  area  (ft  ) 
p-   steam  density  (lb/ft^) 
Equation  (16)  can  be  rewritten: 

Vs   1      W       (16) 

3S00  pltzi^ 

L«s  total  tube  length  (ft) 
I^.r  steam  lane  width  (ft) 

Since  some  of  the  steam  enters  directly  into  the  tube 
bundle,  W  in  the  above  equation  should  be  reduced  by  an 
appropriate  amount.   The  resulting  equation  that  follows 
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agrees  well  with  similar  condenser  designs  : 

Vr  .878^      W (17) 

3600    PLy2Ly 

Therefore,  up  to  this  point  in  the  procedure  the  following 
basic  information  has  been  determined : 

1.  Tube  Length  of  condenser  shell 

2.  Condensate  drainage  plate  spacing 

3.  Tube  bundle  dimensions  and  volume 

k- .   Condenser  shell  dimensions  and  volume 
The  remainder  of  the  sizing  procedure  concerns  the  determin- 
ation of  component  dimensions  for  the  tubesheets,  waterboxes, 
hotwell,  etc.  The  required  material,  dimensions,  arrangement, 
and  construction  of  condenser  components  were  determined  in 
accordance  with  Reference  (7).  reflecting  submarine  design 
practice. 

The  final  product  of  this  procedure  is  preliminary 
condenser  sizing  and  arrangement,  and  the  following  values 
for  performance  comparison:  total  condenser  weight  and 
volume,  and  the  cooling  water  system  pressure  drop  through 
the  condenser. 


-25- 

IV.   COMPUTER  MODELING 


The  basic  procedure  for  heat  exchanger  sizing  as  out- 
lined in  the  previous  section  was  employed  in  the  Vertical 
Condenser  Sizing  Program  No.  1  (VERTCON-1).   The  VERTCON-1 
program  is  a  preliminary  design  tool  with  the  following 
features: 

1.  The  option  of  smooth  internal  tubes 
or  internally  enhanced  tubes. 

2.  Design  of  single  or  double  pass 
condensers . 

3.  Option  of  submarine,  or  surface 
ship  condenser  design. 

k>.      Two  basic  configurations  are  avail- 
able for  double  pass  condensers : 

(a)  Conventional  return  header  design 

(b)  "U-Tube"  construction 

5.  Diagnostic  messages  used  to  warn  when 
condenser  drainage  plate  spacing  is 
beyond  specifications  based  on  heat 
transfer  performance  and  mechanical 
design. 

6.  Computation  of  recommended  values  for 
condenser  drainage  plate  spacing  and 
maximum  main  steam  lane  entrance 
velocity  when  they  are  not  specified. 

Program  Description 

The  program  VERTCON-1  is  described  here,  and  diagrammat' 
ically  in  the  simplified  program  flow  chart  (Figure  5).   The 
program  is  based  on  the  FORTRAN-77  standard,  and  is  listed 
in  Appendix -A.   Included  with  the  program  listing  are  sample 
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data  input  files,  and  program  output. 

The  program  input  consists  of  input  data  files,  and 
interactive  input  entered  at  a  terminal.   The  input  data 
files  consist  of  tube  geometry  information,  and  specification 
of  condenser  operating  conditions.   The  design  features  are 
selected  interactively  at  the  terminal.   See  Appendix -A 
for  further  details  on  data  input. 

The  program  is  set  up  for  sizing  just  one  condenser 
or  a  series  of  condensers.   After  inputing  data  the  program 
prompts  at  the  terminal  for  selection  of  design  features. 
If  condenser  drainage  plate  spacing  and  maximum  main  steam 
lane  entrance  velocity  are  not  specified  the  program  cal- 
culates recommended  values  (Branch  A  and  Iteration-A, 
Figure  5)«  The  determination  of  these  values  are  based  on 
heat  transfer  performance  and  mechanical,  design  to  provide 
proper  tube  support.   If  these  values  are  specified  then  the 
program  checks  if  condenser  drainage  plate  spacing  is 
beyond  recommended  values  (Branch  B,  Figure  5) •   If  the 
values  specified  exceed  those  dictated  by  proper  design, 
then  diagnostic  warning  messages  are  printed  at  the  terminal 
and  in  the  program  output.   For  an  example  of  this  see 
sample  output  condenser  number  ^  in  Appendix  A. 

In  Iteration  B  and  C,  the  total  effective  tube  length 
for  the  condenser  is  calculated  by  adding  N  tube  sections 
of  length  equal  to  the  drainage  plate  spacing  until  a  proper 
heat  balance  is  obtained.   Iteration  B  adds  up  N-l  of  these 
sections,  and  Iteration  C  calculates  final  section  length, 
which  may  have  a  length  less  than  the  specified  drainage 
plate  spacing. 

After  total  effective  tube  length  is  determined  the 

condenser  geometry,  weight,  volume  and  system  pumping  power 
are  calculated  for  each  condenser.   The  tabulated  program 
output  displays  for  each  condenser  the  following  information: 
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(1)  All  input  data  and  design  features  selected. 

(2)  If  applicable,  diagnostic  warning  messages. 

(3)  Detailed  weight  breakdown  of  condenser 
components . 

(k)  Total  condenser  volume  center  of  gravity  and 
total  weight  in  dry  and  wet  conditions ,  and  system  pumping 
power . 
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V.   TUBS  SELECTION 


Three  basic  groups  of  tubes  were  used  in  the  vertical 
condenser  sizing  routine  and  subsequent  performance  com- 
parison with  horizontal  smooth  and  enhanced  tubes,  and  they 
are: 

1.  smooth  internal  tube 

2 .  mild  internal  enhancement 

3.  extreme  internal  enhancement 

Also  tubes  were  compared  with  the  same  degree  of  external 
enhancement. 

For  all  tubes,  the  outer  tube  wall  diameter  was  5/8  in. 
with  a  tube  wall  thickness  of  0.035  in.  The  base  of  the  axial 
flutes  are  located  at  the  outer  wall  diameter  (D  ) . 

In  selection  candidates  for  internal  enhancement  various 
configurations  were  investigated  from  reference  (6).   The 
objective  was  to  obtain  enhancement  configurations  with  the 
following  properties: 

1.  Candidate  tubes  with  acceptable  improvement  in 
internal  enhancement  with  lower  cooling  water  pressure  drop 
characteristics . 

2.  Candidate  tubes  with  significant  improvement  in 
internal  enhancement.   Due  to  the  more  extreme  internal 
enhancement  these  tubes  will  have  higher  cooling  water 
pressure  drop  characteristics. 

The  selection  criteria  for  the  external  enhancement 
considered  both  heat  transfer  performance  and  tube  strength 
requirements.   ?or  a  fluted  tube  under  internal  pressure, 
stress  concentrations  occur  at  the  bottom  of  the  flute 
valley.   A  method  was  developed  by  NEUBER  (8)  to  relate 
stress  concentration  factor  to  flute  amplitude-to-pitch 
ratio.  With  information  obtained  by  applying  this  method, 
a  criteria  can  be  established  for  selection  of  a  maximum 
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a/p  ratio.   The  effect  of  a/p  ratio  on  tube  strength  will 

only  be  significant  at  deep  operating  depths  for  submarine 

condensers ,  and  it  will  not  be  a  strong  influencing  factor 

in  surface  ship  condenser  designs. 

The  condensate  heat  transfer  coefficient  h  is  also 

c 

a  strong  function  of  a/p  ratio,  and  it  generally  increases 
in  the  range  of  a/p  up  to  approximately  0.35.  Work  is 
ongoing  in  this  area  to  determine  selection  criteria  for 
optimal  a/p  ratio. 

The  desire  to  keep  the  a/p  ratio  at  higher  values  for 
improved  heat  transfer  performance  is  opposed  by  the  strength 
requirements  that  place  a  limit  on  the  maximum  value  for  this 
ratio.   The  result  of  balancing  these  two  opposing  require- 
ments resulted  in  the  tube  selections  as  shown  below: 


Table  1.   Enhanced  Vertical  Tube  Data 

Tube  Wall  Diameter  -  5/8  in. 
Tube  Wall  Thickness  =  0.035  in. 


Coolir 

ig  Water 

Enhancement 

Version 
Number 

m 

r 

(in.) 

P 
(in.) 

e/di 

e/Pi 

f* 

1 
2 
3 

.58 

•  59 
.762 

.0075 
.OOI97 

0 

.0240 
.0204 
.0125 

.0949 
.1910 
.4750 

.04324 
.03676 
.02252 

.2529 
.1070 

.0263 

.072 

.043 
.030 

*Friction  Factor  @  Re  -  4.0  x  10 


4 


Steam  Side  Enhancement 


Version 
Number 

(in.) 

P0 
(in.) 

a  /? 
0'    0 

NuoQ* 

Number  of 
Flutes 

1 
2 

3 

.01 

.015 

.008 

.0409 
.0874 
.0336 

.245 

.17^9 
.2384 

4.54 
4.40 
4.487 

48 
24 
60 
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VI.   COMPARISON  0?  HEAT  TRANSFER  RESISTANCES 

A  comparison  of  steamside,  tube  wall,  and  waterside 
resistances  for  typical  vertical,  horizontal  smooth  and 
enhanced  tubes  is  depicted  in  Figure  (6).  All  three  tubes 
are  operating  at  the  same  flow  velocities  and  condensing 
conditions.  Both  the  horizontal  and  vertical  enhanced 
tubes  are  compared  with  the  same  degree  of  internal  enhance- 
ment, and  thus  the  cooling  water  pressure  drop  experienced 
by  these  two  enhanced  tubes  are  also  approximately  equal. 
Also,  the  cooling  water  pressure  drop  for  the  enhanced  tubes 
is  greater  than  for  the  smooth  horizontal  tube. 

The  numbers  on  the  bar  graph  in  Figure  (6)  for  the  hori- 
zontal and  vertical  enhanced  tubes  indicate  the  overall 
reduction  in  thermal  resistance  as  compared  with  the  horizontal 
smooth  case.   For  the  horizontal  enhanced  case  the  26  percent 
thermal  resistance  reduction  corresponds  to  a  single  helix 
ridged  tube,  and  the  35  percent  thermal  resistance  reduction 
corresponds  to  a  single  helix  ridged  tube  where  additional 
external  enhancement  surfaces  (grooves)  have  been  added. 
As  demonstrated,  the  horizontal  enhanced  tube  provides  for 
significant  thermal  resistance  reduction  on  the  waterside, 
and  reduction  to  a  limited  extent  on  the  steam  side. 

As  compared  with  both  horizontal  smooth  and  enhanced  tube 
the  vertical  tube  provides  for  significant  reduction  in  steam- 
side  thermal  resistance.  This  decrease  in  steamside  resistance 
doesn't  occur  without  some  cost,  which  in  this  case  turns  out 
to  be  an  increase  in  tube  wall  resistance.  The  increase  in 

tube  wall  resistance  occurs  because  the  axial  flutes  are  built 
up  on  the  tube  at  the  wall  diameter  thus  increasing  the  length 
of  the  heat  transfer  path  through  tube  wall  material.  This 
increased  tube  wall  resistance  is  reflected  in  the  formulation 


-32- 


15 


o 

rH 


O 
I 

CM 
-P 
«H 
I 

u 


£3 


10 


CU 
O 

C 
-P   • 

CO 
♦H 
CO 
0) 

« 

9 

CO 

E-i 

■P 
cti 
<u 


cd 
U 

CO 

> 

o 


.5/8-OD,  0.035"  Wall  Titanium (clean) 
.Tube  Velocity  =   8ft/sec 


Steamside 
Tube  Wall 
Waterside 


-26$ 


-44 . $% 


Smooth 


Horizontal 
Enhanced 


Vertical 
Enhanced 


FIGURE  6 


Comparison  of  Heat  Transfer  Resistance 


-33- 

of  the  heat  transfer  coefficient  for  the  tube  wall  in  equa- 
tion (^).   As  horizontal  enhanced  tubes  are  modified  to 
provide  improved  steamside  enhancement  by  more  severe  external 
grooving  similar  problems  with  increased  tube  wall  resistance 
will  be  encountered. 

This  increase  in  tube  wall  resistance  can  be  minimized 
by  reducing  the  value  of  the  flute  amplitude  (a).   In  order 
to  maintain  the  amplitude-to-pitch  (a/p)  ratio  at  a  specified 
value,  correspondingly  the  value  of  p  will  have  to  be  reduced. 
The  overall  effect  of  reducing  both  a  and  p  to  minimize  the 
increase  in  tube  wall  resistance  will  be  to  produce  a  tube 
with  a  large  number  of  smaller  flutes.   As  discussed  before, 
this  sort  of  trend  will  improve  heat  transfer  performance  up 
to  a  point  where  the  flutes  become  so  small  that  they  are 
easily  flooded.  This  flooding  problem  could  be  partially 
offset  by  also  decreasing  the  condensate  drainage  plate 
spacing,  but  again  there  is  a  limit  to  how  small  the  drainage 
plate  spacing  can  be. 

The  material  for  all  three  tubes  in  figure  (6)  is 
titanium.  The  comparative  increase  in  tube  wall  resistance 
for  vertical  tubes  will  not  be  as  significant  for  materials 
possessing  greater  thermal  conductively ,  such  as  CuNi  or  Al. 

As  demonstrated,  vertical  enhanced  tube  can  cause  a 
noteworthy  reduction  in  overall  thermal  resistance  by  pro- 
viding significant  reductions  in  both  waterside  and  steamside 
resistance.  It  should  be  noted  that  to  insure  minimum  tube 
wall  resistance  care  must  be  taken  in  the  selection  of  the 
axial  flute  geometry. 
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VII.   RESULTS  OF  PERFORMANCE  COMPARISON 


The  following  series  of  four  figures  demonstrate  the 
comparison  of  condenser  performance  between  various  vertical 
tube  condenser  configurations,  and  the  horizontal  enhanced 
and  baseline  horizontal  smooth  tube  condensers.   Enhanced 
and  baseline  condenser  data  is  displayed  in  Table  2.   The 
condensers  are  characterized  as  being  either  High  Condenser 
Absolute  Pressure  (HCAP)  or  Low  Condenser  Absolute  Pressure 
(LCAP)  designs. 

The  LCAP  and  HCAP  are  typical  submarine  condenser 
designs,  and  Code  2721,  David  Taylor  Naval  R&D  Center 
was  the  source  of  data  for  the  horizontal  enhanced  and  the 
baseline  horizontal  smooth  tube  condensers.  This  data  is 
based  on  the  results  out  of  the  0RC0N-2  program  from  the 
Naval  Postgraduate  School,  Monterey.   For  the  vertical  tube 
condensers  equivalent  procedures  were  used  in  determining 
the  weight  and  dimensions  of  condenser  components,  to  ensure 
a  valid  comparison  of  condenser  performance. 

The  performance  comparison  is  presented  by  plotting 

total  condenser  weight  ratio  (W  A', , )  versus  the  pumping  power 

ratio  (P  /P,-,).  The  ratio  W  /w,  1  )  is  the  weight  of  the 
x  e  bl  e  bl 

enhanced  tube  condensers  divided  by  the  weight  of  the  baseline 

horizontal  smooth  tube  condenser.   The  condenser  weight  is 

the  total  wet  weight  of  the  condenser  and  its  components, 

excluding  external  pumps  and  piping.  The  ratio  Pe/P>ui  is 

the  pumping  power  of  the  enhanced  tube  condensers  divided  by 

that  of  the  baseline  horizontal  smooth  tube  condenser.  The 

pumping  power  is  a  combined  value  for  both  the  condenser  and 

the  condenser  seawater  circulating  system.   A  plot  of  total 

condenser  volume  ratio  (V  /v,  n )  versus  P  /p,  n  ratio  was  also 

N  e  bl         e  bl 

made,  where  condenser  volume  is  the  total  box  volume  of 
condenser  and  components  excluding  external  piping  and  pumps. 
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TABLS   2    -  ENHANCED  AND  BASELINE   CONDENSER   DATA 


HCAP 

Enhanced 

Vertical 

LCAP 

Enhanced 

Vertical 

HCAP /LCAP 

Enhanced  Horizontal  & 

Baseline  Smooth  Tube 

Tube  spacing/ 
diameter 

1.35 

1.35 

1.35 

Tube  0D(in. ) 

0.625 

0.625 

0.625 

Tube  Wall 
Thickness(in. ) 

0.035 

0.035 

0.035 

Tube  Material 

Ti 

Ti 

Ti 

Tube  Wall 
Conductivity 
(3TU/hr  ft0?) 

9-5 

9-5 

9.5 

Cooling  Water 
Velocity 
(ft /sec) 

8.0-14.0 

8.0-14.0 

Cooling  Water 
Inlet  Temp. ( °F) 

66.1 

66.1 

66.1 

Fouling 

Resistance 

(hrft^°F/BTU) 

0.00033 

0.00033 

0.00033 

Steam  Inlet 
Saturation 
Temperature ( °F) 

143.89 

112.0 

143.89/112.0 

Cooling  Water 
Outlet  Temp( °F) 

123.46 

98.28 

123.46/98.28 

S.W.  Flow  (GPM) 

7900 

13,500 

7900/13,500 

Condenser 
Operating 
Pressure  (in.Hg) 

6.5 

1.5 

6.5/1.5 
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BASELINE  HCFIZONTAL  SMOOTH  TUBE   CONDENSER    DAmA 


HCAP 

LCAP 

S.  Ttf.  Flow  (C-PM) 

7900 

13500 

Cooling  Water  Velocity 
(ft/sec) 

6.36 

7.6? 

Overall  Width  (ft) 

6.25 

8.06 

Overall  Length  (ft) 

25.3 

28.8 

Total  Wet  Weight  (lbs) 

110,303 

1^3,369 

Overall  Head  Loss 
(ft-H20) 

15.4 

2k.  3 

Box  Volume  (ft^) 

1226 

2091 

System  Pumping  Power 
(HP) 

190 

277 
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HCAP  -  ENHANCED- VERTICAL  TUBS  CONDENSER  PERFORMANCE 


Performance  comparison  for  the  HCAP  condenser  design 
on  the  basis  of  W  /w,  ,  versus  P  /Phl  is  plotted  in  Figure  7 
and  V  /v,  -,  is  plotted  in  Figure  8.  Three  different  internal 
enhancement  configurations  are  employed  all  with  the  same 
steam  side  enhancement  (NR-1). 

Curve -3 

Data  for  smooth  internal  vertical  tubes  are  plotted 
in  curve-3.  The  range  of  condenser  parameters  going  from 
left  to  right  on  the  curve  are: 

Cooling  water  velocity (ft/sec)  6.36  -  8.0 

Total  condenser  length(ft)  2k   -  26 

Effective  tube  length(ft)  14.0  -  16. 3 

Condenser  diameter (ft)  6.8  -  5.9 

Box  volume (ft3)  1178.  -  978 

Condenser  weight (lbs)  86,763  -  71 » 900 

Pumping  power (HP)  184.  -  210 

The  effective  tube  length  is  only  the  tube  length  required 
to  transfer  the  specified  heat  load,  and  it  doesn't  include 
the  extra  tube  length  required  for  double  tube  sheet  con- 
struction. Traveling  along  the  curve  from  left -to -right 
the  following  trends  can  be  observed: 

1.  cooling  water  velocity  increases 

2.  total  condenser  length  and  effective 
tube  length  both  increase 

3.  condenser  diameter,  box  volume,  and 
weight  all  decrease 

4.  pumping  power  increases 
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These  same  general  trends  can  be  observed  in  all  the 
plotted  data  for  both  the  HCAP  and  LCAP  designs .   As  shown 
above,  condenser  diameter  decreases  as  the  condenser  length 
and  flow  velocity  increases  with  a  corresponding  reduction 
in  both  weight  and  volume.  This  demonstrates  that  a  small 
condenser  diameter  and  long  length  produces  a  greater  weight 
and  volume  reduction.   In  practice  however,  a  pumping  power 
or  practical  condenser  length  limit  will  dictate  an  acceptable 
range  for  a  design  on  this  curve.  This  indicates  that  a 
condenser  with  in  the  greatest  weight  and  volume  reduction 
will  also  possess  larger  values  for  condenser  length  and 
pumping  power. 

This  methodology  can  be  applied  to  nonenhanced  condenser 
designs ,  but  the  length  limit  will  be  much  more  restrictive 
than  for  enhanced  condensers,  thus  restricting  the  degree  of 
improvement . 

This  data  also  demonstrates  that  condenser  weight  and 
volume  is  a  strong  function  of  condenser  diameter.   Condenser 
box  volume  is  a  function  of  diameter  squared,  thus  reducing 
diameter  will  have  a  greater  effect  in  reducing  volume  than 
changing  condenser  length.  Also,  the  largest  weight  condenser 
conponents  have  dimensions  based  on  diameter,  such  as  water- 
boxes,  tubesheets ,  tube  support  plate  and  condenser  shell. 
Therefore,  reducing  condenser  diameter  will  have  a  significant 
effect  in  reducing  weight. 

Curve-3  also  demonstrates  that  significant  weight  and 
volume  reduction  is  possible  with  just  steamside  enhancement. 
If  the  application  of  internally  enhanced  tubes  becomes 
restricted  due  to  excessive  rates  of  fouling,  then  vertical 
tube  condensers  will  still  be  able  to  provide  an  enhanced 
condenser  alternative  with  smooth  internal  tubes. 
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Curve-2 

Data  in  Curve-2  are  for  condensers  with  doubly  enhanced 
vertical  tubes  with  mild  degree  of  internal  enhancement 
(internal  enhancement  NR-2).   The  range  of  condenser 
parameters  going  from  the  left  to  right  on  the  curve  are: 

Cooling  Water  velocity (ft/sec)   8.0  -  10.0 

Total  condenser  length(ft)  23  -  25 

Effective  tube  length (ft)  12.7  -  15.3 

Condenser  diameter (ft)  6.5   -  5»6 

Box  volume (ft3)  10^2  -  852 

Condenser  weight(lbs)  75>522  -  62,^68 

Pumping  power (HP)  215  -  307 

The  condenser  designs  located  on  this  curve  show  an 
additional  reduction  in  weight  and  volume  over  the  smooth 
internal  vertical  tube  configuration.   But  along  with  the 
increased  performance  there  is  an  increase  in  pumping  power. 
Overall,  the  Curve-2  condensers  provide  the  best  design 
alternatives  for  the  following  reasons : 

1.  The  mild  internal  enhancement  coupled 
with  steamside  enhancement  provides 
significant  weight  and  volume  reduction. 

2.  Condenser  lengths  fall  within  a  reasonable 
range. 

3.  The  mild  enhancement  may  prove  to  produce 
less  fouling  problems  than  other  more 
severely  enhanced  tubes. 

Curve -1 

Data  in  Curve-1  depict  condenser  designs  with  doubly 
enhanced  vertical  tubes  with  extreme  internal  enhancement 
(internal  enhancement  NR-1).   The  range  of  condenser  para- 
meters going  from  left  to  right  on  the  curve  are: 


Cooling  water  velocity (ft/sec )   8.0  -  12.0 

Total  condenser  length (ft)  22  -  26 

Effective  tube  length (ft)  11.8  -  16.6 

Condenser  diameter(ft)  6.7  -  5-1 

Box  volume (ft 3)  10?6  -  7^7 

Condenser  weight (lbs)  78,620  -  5^,721 

Pumping  power (HP)  280  -  533 

The  condensers  with  the  greatest  weight  and  volume 
savings  are  the  designs  on  Curve-1.   These  same  designs  also 
have  the  largest  values  for  pumping  power. 

As  demonstrated  by  the  HCAP  designs  in  Figures  7  and  8, 
the  vertical  enhanced  tube  condensers  provide  a  significant 
performance  improvement  compared  with  both  enhanced  horizontal 
and  conventional  horizontal  smooth  tube  condensers.   Vertical 
enhanced  tube  condensers  accomplish  this  with  a  great  degree 
of  flexibility,  due  to  the  various  combinations  of  internal 
and  external  enhancement  that  can  be  employed. 
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Performance  -  Condenser  Volume  Comparison 
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LCAP-ENHANCSD-'/ERTICAL  TUBE  CONDENSER  PERFORMANCE 

Performance  comparison  for  the  LCAP  condenser  design 
on  the  basis  of  W  A/,,  versus  Pq/Pv,!  is  plotted  in  Figure  9, 

and  V  /v,  i  is  plotted  in  Figure  10.   The  vertical  condenser 
e   Di 

designs  depicted  in  this  data  are  for  only  one  tube  con- 
figuration:  internal  enhancement  NR-2  ,  and  external  en- 
hancement NR-3«   The  range  of  condenser  parameters  going  from 
left  to  right  on  the  curve  are: 

Cooling  water  velocity  (ft/sec)   10.5  -  12.0 

Total  condenser  length  (ft)  26-27.5 

Effective  tube  length  (ft)  1^.6-16.2 

Condenser  diameter  (ft)  8.95  -  8.15 

Box  volume  (ft-*)  2227  -  1920 

Condenser  weight  (lbs)  130,8^7  -  112,61^ 

Pumping  power  (HP)  443  -  533 

Only  one  tube  configuration  was  plotted  due  to  design 
length  limitations.   With  larger  allowable  condenser  lengths 
additional  weight  and  volume  reductions  could  have  been 
obtained  with  less  internal  enhancement,  and  at  a  lower 
pumping  power.  With  greater  degree  of  internal  enhancement 
the  pumping  power  limit  was  quickly  reached. 

At  lower  condenser  operating  pressures  as  in  the  LCAP 
design,  weight  and  volume  is  a  strong  function  of  condenser 
diameter  which  is  driven  by  steam  lane  volume.  Steam  lane 
volume  is  directly  proportional  to  specific  volume  of  steam 
and  inversely  proportional  to  condenser  length.   The  magnitude 
of  specific  volume  for  steam  is  over  twice  the  value  in  the 
LCAP  design  as  compared  with  the  HCAP  design. 

If  condenser  length  is  reduced  by  application  of  enhanced 
tubes  while  keeping  other  condenser  parameters  constant, 


condsnser  weight  and  volume  could  actually  be  increased. 
Since  steam  lane  volume  is  inversely  proportional  to  condenser 
length,  reducing  condenser  length  with  the  same  steam  mass 
flow  rate  and  tube  bundle  diameter  will  cause  a  significant 
increase  in  condenser  diameter.   This  increase  in  condenser 
diameter  will  strongly  influence  an  increase  in  weight  and 
volume. 

Condenser  weight  and  volume  can  be  reduced  by  boosting 
flow  velocity,  which  causes  both  an  increase  in  condenser 
length  and  a  decrease  in  condenser  diameter  due  to  reduced 
tube  bundle  diameter  (less  number  of  tubes  and  reduced  steam 
lane  width).   There  is  a  limit  to  how  far  flow  velocity  can 
be  increased,  because  the  pumping  power  limit  is  quickly 
reached. 

The  effect  of  steam  specific  volume  on  condenser  sizing 
has  a* greater  effect  on  condenser  designs  with  lower  operating 
pressures  such  as  the  LCAP  design  that  has  been  described 
above.   Since  the  vertical  condenser  design  is  length  limited,' 
the  amount  of  condenser  performance  improvement  that  can  be 
achieved  at  lower  condenser  pressures  is  also  limited.   This 
trend  is  evident  in  the  data  of  Figures  9  ^ond   10.   To 
illustrate  low  the  vertical  condenser  design  is  length  limited 
examine  the  data  point  for  condenser  length  equal  to  27.5  feet. 
The  effective  tube  length  is  16.2  feet,  while  the  remaining 
11.3  feet  of  condenser  length  is  made  up  of  waterbox  header 
depth  and  hotwell  depth.   Relocation  of  the  hotwell  could 
provide  several  extra  feet  for  increased  effective  tube  length. 
With  certain  condenser  condit  ions  a  one  foot  increase  in 
condenser  length  could  provide  as  much  as  10  percent  additional 
condenser  performance  improvement.   Thus  at  lower  condenser 
operating  pressures,  the  vertical  enhanced  tube  condenser 
performance  is  sensitive  to  allowable  condenser  length. 
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LCAP  -  Enhanced  Vertical  Tube  Condenser 
Performance  -  condenser  Weight  Comparison 
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LCAP  -  Enhanced  Vertical  Tube  Condenser 
Performance  -  Condenser  Volume  Comparison 
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VIII .   CONCLUSIONS 


This  analysis  has  clearly  demonstrated  that  significant 
reduction  in  condenser  weight  and  volume  can  be  obtained  for 
certain  applications  using  enhanced  vertical  tube  condensers. 
Vertical  tube  condenser  performance  also  compares  well  with 
enhanced  horizontal  tube  condensers.   The  following  conclusions 
can  also  be  drawn  from  this  report : 

1.  Larger  comparative  weight  and  volume  reductions  can 
be  obtained  with  designs  at  higher  condenser  operating 
pressures . 

2.  The  proper  methodology  for  producing  enhanced  con- 
denser designs  with  minimum  weight  and  volume  is  tot 

a.  first  determine  proper  value  for  average 
overall  heat  transfer  coefficient  (U)  within 
pumping  power  and  dimension  limits  to  produce 
minimum  weight  and  volume;  and 

b.  match  internal  and  external  enhancement 
configurations  to  obtain  the  specified  value 
for  U. 

3.  Vertical  tubes  can  provide  great  flexibility  due  to 
the  different  combinations  of  internal  and  external  enhance- 
ment configurations.   It  is  possible  to  "fine  tune"  the 
overall  heat  transfer  coefficient  to  obtain  the  optimal 
value  of  U.  Condensate  drainage  plate  spacing  can  also  be 

used  to  adjust  the  value  of  condensate  heat  transfer  coefficient. 

k.      Significant  weight  and  volume  reductions  can  be 
obtained  at  lower  pumping  powers  with  mild  internal  enhancement 
or  with  smooth  internal  tubes. 

5.  The  degree  of  enhancement  should  be  matched  for  each 
particular  case.   The  greatest  degree  of  enhancement  may  not 
always  be  the  optimum  enhancement  with  design  limitations  to 
produce  minimum  condenser  weight  and  volume. 
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6.  Vertical  tube  condenser  design  is  sensitive  to 
effective  tube  length,  and  it  is  restricted  by  the  maximum 
allowable  condenser  length. 

7.  Alternate  hotwell  designs  need  to  be  investigated. 
Relocating  the  hotwell  from  directly  underneath  the  inlet/ 
outlet  cooling  water  header  (Fig.  *0  could  serve  to  reduce 
total  condenser  length. 

Further  analytic  investigations  and  testing  should 
continue  with  enhanced  vertical  tube  condensers.  The  vertical 
condenser  could  have  other  important  applications  other  than 
propulsion  steam  condensers.  This  technology  can  be  applied 
to  many  of  the  shipboard  two-phase  heat  exchangers,  whether 
the  condensing  fluid  is  steam,  refrigerant,  or  other  medium. 
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APFSNDIX  A 


DATA  INPUT 

See  Table-3  for  a  sample  input  data  file 

INPUT  DATA  FILE 

1.  Assigned  Logical  Operator  -  20  to  specify  input  device 

2.  See  lines  ^7-52  of  program  listing  for  explanation 

3.  Free  Format 

h.      Six  lines  of  data  for  each  condenser 

5.   Variable  names  starting  with  I,  J,  K,  L,  M,  or  N  are 
integer  variables  and  others  are  real  variables,  except  for 
specific  cases  as  noted 

LINE  1 

Enter:   SUB  or  SUR 

SUB  -  Submarine  Condenser  Design 

SUR  -  Surface  Ship  Condenser  Design 

LINE  2 

Enter:   NTYPE,  DI ,  DW,  AE  AEPE,  EI,  PI 

NTYPE  -  Tube  Type:   a.  for  smooth  internal  tube 

b.  for  doubly  enhanced  tubes 

DI  -  Internal  Tube  Diameter  (in.) 

DW  -  Tube  Wall  Diameter  (in.) 

AE  -  External  Flute  Amplitude  (in.) 

AEPE  -  Amplitude -To -Pitch  Ratio  of  External  Ridging 

EI  -  Internal  Helix  Ridge  Height  (in.) 

PI  -  Pitch  of  Internal  Helix  (in.) 

Note:   For  smooth  internal  tube  (NTYPE -1)  enter  0$  for  EI,  PI. 
Values  of  EI  and  PI  are  obtained  from  reference  6,  and 
values  used  in  this  study  are  shown  in  Table-1. 
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TABLS  3 


*  *  SAMPLE  INPUT  PILE  *  * 
SUB 

2,. 555,. 625, .01 , .245 , .024 , .0949 
48 . , 4 . 5  4 , • 58 , . 007  5 , 9 • 6 , . 00033 
66.1 ,143-89, .85,257000. ,6.5,2. 
6.  ,.625,. 5625,. 5625, 2. 64, 488. 
558 . , 488 . , 488 . , 488 . , 558  .  , 282  .  ,  1  . 56E7 , . 56 , 488 
SUB 

2 , . 555 , • 625 , .01 , . 245 , .024 , .0949 
48 . , 4 • 54 , • 58 , . 0075 , 9 • 6 , . 00033 
66.1  ,143-89, .85,257000. ,6.5,2. 
6.  ,.625,  .5625,-5625,2.64,488. 
558.  ,488. ,488. ,488. ,558. ,282. ,1  -56E7, .56,488 
SUB 

2 , . 555 , • 625 , .01 , .245 , .024 , .0949 
48 . , 4 . 54 , • 58 , . 0075 , 9 . 6 , . 00033 
66.1 ,143.89, .85,257000. ,6.5,2. 
6.  ,.625,. 5625,. 5625, 2. 64, 488. 
558 . , 488 . , 488 . , 488 . , 558 . , 282 . , 1  . 56E7  ,  • 56  , 488 
SUB 

2 , . 555 , • 625 , .01 , .245 , .024 , .0949 
48 . , 4 • 54 , . 58 , . 0075 , 9 • 6 , . 00033 
66.1 ,143-89, .85,257000. ,6.5,2. 
6.  ,.625, -5625, .5625,2.64,488. 
558 . , 488 . , 488  . , 488 . , 558 . , 282 . , 1  . 56E7 , . 56 , 488 
SUR 

2,. 555,. 625,. 01 , .245 , .024 , .0949 
48 . , 4 • 54 , . 58 , . 0075 ,9.6,. 00033 
66.1 ,143-89, .85,257000. ,6.5,2. 
0., .625, .5625, .5625,1 .5,488. 
0 . , 488 . , 488 . , 488 . , 558  .  , 282 .  ,  1  . 56E7 , . 56 , 488 . 
SUR 

1  ,.555, .625, .01  , .245,0. ,0. 
48. ,4-54,0. ,0. ,9.6, .00033 
66.1 ,143.89, .85,257000. ,6.5,2. 
0.  ,.625, -5625, .5625,1 -5,488. 
0  .  , 438  .  , 488  .  , 488 . , 553 • , 282 . , 1  . 56E7  ,  . 56 , 488 . 


LINE  3 

Enter:   FLUTE,  FE,  MI,  RI ,  KW ,  RSCALE 

FLUTE  -  Number  of  Flutes  Per  Tube 

FE     -  Operand  for  Condensing  Heat  Transfer  Coefficient 

MI     -  Operand  for  Friction  Factor,  Helical  Internal 
Ridging  (Real  Variable) 

RI     -  Operand  for  Friction  Factor,  Helical  Internal 
Ridging 

KW     -  Conductivity  of  Tube  Wall  (BTU/hr-ft- °F) 

RSCALE  -  Fouling  Resistance  (hr-ft- °f/BTU) 

Note:  MI  is  a  real  variable. 

LINE  *£ 

Enter:   TCI,  TSAT,  QSTM,  STMLD,  PSAT,  TIS 

TCI   -  Inlet  Coolant  Temperature  ( °F) 

TSAT  -  Steam  Inlet  Saturation  Temperature  (  °F) 

QSTM   -  Quality  of  Inlet  Steam  to  Condenser 

STMLD  -  Steam  Condenser  (lb/hr) 

PSAT  -  Condenser  Operating  Pressure  (in.  Hg)  Absolute 

TIS   -  Thickness  of  Internal  Tube  Sheet  (in.) 

LINE  5 

Enter:   TOTS,  TSHL,  TTSP ,  THW ,  THDR ,  ITSD 

TOTS   -  Thickness  Outer  Tube  Sheet  (in.) 

TSHL  -  Thickness  of  Condenser  Shell  (in.) 

TTSP   -  Thickness  Tube  Support  Plate  (in.) 

THW   -  Thickness  of  Hot  Well  Plate  (in.) 

THDR  -  Thickness  of  Headers  (in.) 

ITSD  -  Internal  Tube  Sheet  Density  (lb./Ft-^)  (Real  Variable) 
Note:   ITSD  is  a  real  variable. 

LINE  6 

Enter:   OTSD,  SHLD,  TSPD,  HWD ,  HDRD,  TBD ,  ETUBE,  TCOVER.COVERD 

OTSD   -  Outer  Tube  Sheet  Density  (lb/ft^) 

SHLD   -  Shell  Density  (lb/ft3) 
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T3PD  -  Tube  Support  Plate  Density  (lb/ft^) 

HWD  -  Hot  Well  Plate  Density  ( lb/ft ^) 

HDRD  -  Header  Density  (lb/ft^) 

TBD  -  Tube  Bundle  Density  (lb/ft^) 

ETU3E  -  Modulus  of  Elasticity  of  Tube  Material  (lb/in  ) 

T COVER  -  Thickness  of  U-Tube  Header  Cover  (in. ) 

COVERD  -  Density  of  U-Tube  Header  Cover  (in.) 

INTERACTIVE  DATA  INPUT 

Enter  data  at  the  terminal  as  follows: 

When  the  program  commences,  the  following  message 
appears  on  the  terminal  screen: 


**   WELCOME  TO  PROGRAM:   VERT CO N ,  VERSION-1   ** 
ENTER  PROGRAM  RUN  NUMBER 


Enter  Run  number,  which  can  be  an  integer  from  O-to-999. 
Next  at  the  terminal  appears: 


ENTER  THE  NUMBER  0?  CONDENSERS  TO  BE  SIZED 


Enter  The  number  of  condensers  to  be  sized,  which  is  also 
an  integer  from  l-to-999. 

Next  at  the  terminal  appears : 


ENTER  "1"  FOR  SINGLE  PASS,  OR  "2"  FOR  DOUBLE  PASS  CONDENSER 


Enter  the  proper  integer  number  1  or  2  for  single  or  double 
pass  condenser. 
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Next  at  the  terminal  appears: 


TWO  BASIC  CONFIGURATIONS  ARE  AVAILABLE  ?0R  DOUBLE 
FA3S  CONDENSERS: 

(1)  CONVENTIONAL  RETURN  HEADER  DESIGN 

(2)  "U-TU3E"  CONSTRUCTION 

ENTER  1  OR  2  FOR  CONFIGURATION  SELECTION 


Enter  the  proper  integer  number  1  or  2  for  configuration 
selection. 

Next  at  the  terminal  appears: 


ENTER:   (1)  COOLANT  FLOW  RATS  (GPM) 

(2)  COOLANT  FLOW  VELOCITY  (FT/SEC) 

(3)  FRICTION  FACTOR  FOR  INTERNAL  TUBE 


Enter  all  three  numbers  (real  numbers)  on  the  same  line  in 
free  format . 

Note:   Friction  factors  for  internally  enhanced  tubes  can  be 
obtained  from  reference  (6)  and  values  used  in  this  study  are 
shown  in  Table-1. 

Next  at  the  terminal  appears : 


DO  YOU  WANT  TO  SPECIFY  MAXIMUM  MAIN  STEAM  LANE 
ENTRANCE  VELOCITY  (FT/SEC)? 

YES  OR  NO 


Enter  YES  or  Y,  NO  or  N  for  proper  choice. 

If  YES  is  entered,  next  at  the  terminal  appears : 


SNTER  MAXIMUM  MAIN  STEAM  LANE  ENTRANCE  VELOCITY  (PT/SSC) 


Enter  this  as  a  real  number. 

If  NO  was  entered,  next  at  the  terminal  secrrn  appears 


PROGRAM  WILL  SELECT  RECOMMENDED  MAXIMUM  MAIN 
STEAM  LANE  ENTRANCE  VELOCITY  USING  CONDENSER 
OPERATING  PRESSURE  AS  SELECTION  CRITERIA. 


Next  at  the  terminal  appears: 


DO  YOU  WANT  TO  SPECIFY  CONDENSATE  DRAINAGE 
PLATS  SPACING  (FT.)? 

YES  OR  NO 


Enter  YES  or  Y,  NO  or  N  for  proper  choice. 

If  YES,  is  entered,  next  at  the  terminal  appears 


ENTER  CONDENSATE  DRAINAGE  PLATE  SPACING  (FT.) 


Enter  this  as  a  real  number. 

If  NO  was  entered,  next  at  the  terminal  appears : 


PROGRAM  WILL  SELECT  RECOMMENDED  CONDENSATE 
DRAINAGE  PLATE  SPACING 


-55- 

Note:  At  this  point,  entry  of  Interactive  Data  is  completed 
for  the  first  condenser.   The  program  now  completes 
the  sizing  for  the  first  condenser  and  will  prompt  the 
terminal  f or^  further  interactive  data  for  any  additional 
condensers. 


DATA  OUTPUT 

See  Table-4  for  a  sample  output  data  file.   This  output  data 
file  demonstrates  the  design  features  as  follows: 


CONDENSER  NUM35F.  (1) 

1.  Condenser  Type:   Submarine  design 

2.  Double  pass  condenser  with  conventional  return 
header  design 

3.  Doubly  enhanced  tubes 

CONDENSER  NUMBER  (2) 

1.  Condenser  Type:   Submarine  design 

2.  Double  pass  condenser  with  "U-tube"  construction 

3.  Doubly  enhanced  tubes 

CONDENSER  NUMBER  (3) 

1.  Condenser  Type:   Submarine  design 

2.  Single  pass  condenser 
3«  Doubly  enhanced  tubes 

CONDENSER  NUMBER  (M 

1.   Demonstration  of  program  diagnostic  warning  messages 

CONDENSER  NUMBER  (5) 

1.  Condenser  Type:   Surface  ship  design 

2.  Double  pass  condenser  with  conventional  return 
header  design 

3.  Doubly  enhanced  tubes 


-56- 

CONDENSER  NUMBER  (6) 

1.  Condenser  Type:   Surface  ship  design 

2.  Single  pass  condenser 

3.  Smooth  internal  tubes 
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TABLE  jj; 


********    SAMPLE  OUTPUT  PILE  ******** 


*  PROGRAM:  VERTCON, VERSION- 1  ** 


PROGRAM  RUN  NUMBER (   1 ) 


****  VARIABLE  LIST  **** 


AE=  EXTERNAL  FLUTE  AMPLITUDE  (IN.) 

AEPE=  AMPLITUDE-TO-PITCH  RATIO  OP 
EXTERNAL  RIDGING 

ATB=  AREA  OP  TUBE  BUNDLE  (FT**2) 
ATS=  AREA  OP  TUBE  SHEET  (FT**2) 
DI=  INTERNAL  TUBE  DIAMETER  (IN.) 
DPTHDR=  HEADER  DEPTH  ( FT . ) 
DRYCG=  HEIGHT  OP  CENTER  OP  GRAVITY 

ABOVE  CONDENSER  BOTTOM  AT  DRY 

WEIGHT  (FT.) 
DTB=  DIAMETER  OF  TUBE  BUNDLE  ( FT . ) 
DTS=  DIAMETER  OF  TUBE  SHEET (FT.) 
DW=  TUBE  WALL  DIAMETER  (IN.) 
SI=  OPERAND  FOR  FRICTION  FACTOR 

HELICAL  INTERNAL  RIDGING 
FE=  OPERAND  FOR  CONDENSING  HEAT 

TRANSFER  COEFFICIENT 
KW=  CONDUCTIVITY  OF  TUBS  WALL 

(BTU/HR-FT-DEG.F) 
LANE=  STEAM  LANE  BREADTH  (FT.) 
LHW=  LENGTH  OF  HOTWELL  (PT.) 
LTOT=  TOTAL  TUBE  LENGTH  (FT.) 
TCI=  INLET  COOLANT  TEMP.  (DEG.F) 


MI=  OPERAND  FOR  FRICTION  FACTOR; 

HELICAL  INTERNAL  RIDGING 
NTYPE=  TUBE  TYPE:  1--POR  SMOOTH  IN- 
TERNAL TUBE;  AND  2-FOR  DOUBLY 

ENHANCED  TUBES 
PI=  PITCH  OP  INTERNAL  HELIX (IN.) 
PSAT=  CONDENSER  OPERATING  PRESSURI 

( IN. HG) ABSOLUTE 
QSTM=  QUALITY  OP  INLET  STEAM  TO 

CONDENSER 
RI=  OPERAND  FOR  FRICTION  FACTOR, 

HELICAL  INTERNAL  RIDGING 
RSCALE=  FOULING  RESISTANCE 

( HR-FT**2-DEG . F/BTU ) 
STMLD=  STEAM  LOAD  (LBM/HR) 
TSAT=  SATURATION  TEMP.  (DEG.F) 
VTB=  VOLUME  OF  TUBE  BUNDLE  (FT**3) 
WEXP=  EXPANSION  JOINT  WEIGHT  (LB.) 
WMISC=  WEIGHT  OF  MISCELLANEOUS 

COMPONENTS  (LB.) 
WETCG=  HEIGHT  OF  CENTER  OF  GRAVITY 

ABOVE  CONDENSER  BOTTOM  AT  WET 

WEIGHT  (FT.) 
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*******##**#**#-x--x--*-x--x--x--x--x--x--x--x-*-** 


CONDENSER   NUMBER 


1) 


•*  -X-  -X-  -X-  *  -*-*--*-  -X-  *  -X-  -x-  *  *  -x-  -x-  *  -*-*--*--*-  -X-  *  -X-  -X-  -X--X--X-  * 

CONDENSER  TYPE:  SUBMARINE  DESIGN 

DOUBLE  PASS  CONDENSER  WITH  CONVENTIONAL  RETURN  HEADER  DESIGN 

DOUBLY  ENHANCED  TUBES  .  . 

****  DATA  INPUT  **** 
FLOW  RATE:   7900.  (GPM)   .  .  PLOW  VELOCITY 
=  0.555     DW  =  0.625     AE  =  0.010     AEPE 
=  0.0240    PI  =  0.0949    FE  =   4.54    MI  = 
9. 60    TCI  =   66.10   PSAT  =  6 . 50    QSTM 


DI 
EI 
KW 
STMLD  =   257000.0 


10.00  (FT/SEC)  .  . 
=  0.2450    NTYPE  =   2 
0.580       RI  =  0.0075 
=  0.85      TSAT  =  143-89 


RSCALE  =  0.00033 


****  DATA  OUTPUT  -  CONDENSER  SIZING  ROUTINE  **** 
MAXIMUM  MAIN  STEAM  LANE  ENTRANCE  VELOCITY:  200.  (FT/ SEC) 
CONDENSATE  DRAINAGE  PLATE  SPACING:   1.05  (FT.) 
CONDENSER  HEAT  LOAD:     0.22094E+09  (BTU/HR) 
OUTLET  COOLANT  TEMP:     123-44  (DEG.F) 
TOTAL  NUMBER  OF  TUBES:   2096.0 


EFFECTIVE  TUBE  LENGTH: 
AVG.  HEAT  TRNFR.  COEFF. 
AVG.  HEAT  TRNFR.  COEFF. 
AVG.  OVERALL  HEAT  TRNFR 


14.27  (FT.) 

C.W.:     5950.  BTU/HR-FT**2-DEG.F 

COND.:   41106.  (BTU/HR-FT**2-DEG . F 

COEFF.:   997.  (BTU/HR-FT**2-DEG.F) 


LTOT  =  16.13 
VTB  =  145-03 


LANE  =   1 .25 
DTS  =   6.09 


DTB  = 
ATS  = 


3.  60 
29.10 


ATB  =   10.16 


****  DATA  OUTPUT  -  WEIGHT  &  VOLUME  CALCULATIONS  **** 
WEXP  =    429.7   WMISC  =  11093.3    LHW  =   5-17     DPTHDR  =   3-04 


MATERIAL 

DENSITY(LB/FT**3) 

OUTER  TUBE  SHEET 558.0 

INNER  TUBE  SHEET 488.0 

TUBE  SUPPORT  PLATE 488.0 

TUBE  BUNDLE 282.0 

CONDENSER  SHELL 488.0 

HOTWELL 488.0 

WATERBOX 558.0 


TOTAL  CONDENSER  DRY  WSIGHT= 
TOTAL  CONDENSER  WET  WEIGHT= 


ICKNESS 

WEIGHT 

(IN.) 

(LB.) 

6.0000 

13421 . 

2.0000 

3912. 

0.5625 

1708. 

*  #**-x-* 

5616. 

0.6250 

7907. 

0.5625 

3599. 

2.6400 

7781  . 

55466.6  (LB.) 
63449.9  (LB.) 
28.33  (TON) 


TOTAL  CONDENSER  HEIGHT= 
OUTER  SHELL  DIAMETER= 


24.34  (FT.) 
6.19  (FT.) 
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ENCLOSED  BOX  VOLUME=     1002.2  (FT**3) 
DRYCG  =   12.33     WETCG  =   11.73 

CONDENSER  PRICTIONAL  HEAD  LOSS=  84.1  (FT.) 
TOTAL  SYSTEM  HEAD  LOSS=  137.1  FT.) 
TOTAL  SYSTEM  PUMPING  POWER=     381.3  (HP) 
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CONDENSER  NUMBER (   2) 
*  -*-**--*•*  *  *  *  -x-  -**■  *  *  *  -*-*--*-*  *  *-*  *  -*•**  -»•  *  * 

CONDENSER  TYPE:  SUBMARINE  DESIGN 

DOUBLE  PASS  CONDENSER  WITH  "U-TUBE"  CONSTRUCTION. 

DOUBLY  ENHANCED  TUBES  .  . 

****  DATA  INPUT  **** 


.  .  PLOW  RATE 
DI  =  0.555 
EI  =  0.0240 
KW  =    9-60 


7900.  (GPM) 
DW  =  0.625 
PI  =  0.0949 
TCI  =   66.10 


STMLD  =   257000.0 


.  .  PLOW  VELOCITY 
AE  =  0.010  AEPE 
FE  =  4-54  MI  = 
PSAT  =6.50  QSTM 
RSCALE  =  0.00033 


10.00  (PT/SEC)  .  . 
=  0.2450    NTYPE  =   2 
0.580       RI  =  0.0075 
=  0.85      TSAT  =  143-89 


-**■*# 


DATA  OUTPUT  -  CONDENSER  SIZING  ROUTINE  **** 
MAXIMUM  MAIN  STEAM  LANE  ENTRANCE  VELOCITY:  200.  (PT/SEC) 
CONDENSATE  DRAINAGE  PLATE  SPACING:   1.05  ( PT . ) 
CONDENSER  HEAT  LOAD:     0.22094E+09  (BTU/HR) 
OUTLET  COOLANT  TEMP:     123-44  (DEG.P) 
TOTAL  NUMBER  OP  TUBES:   2096.0 


EFFECTIVE"  TUBE  LENGTH: 
AVG.  HEAT  TRNPR.  COEPP.  C.W.: 
AVG.  HEAT  TRNPR.  COEPP.  COND . : 
AVG.  OVERALL  HEAT  TRNPR.  COEPP. 


14.27  (PT.) 

5950.  (BTU/HR-FT**2-DEG.F) 

41106.  (BTU/HR-FT**2-DEG.P) 

997.  (BTU/HR-FT**2-DEG.F) 


LTOT  =  16.13 
VTB  =  145-03 


LANE  =   1.25 
DTS  =   6.09 


DTB  =        3-60 
ATS  =   29.10 


ATB  =   10.16 


****  DATA  OUTPUT  -  WEIGHT  &  VOLUME  CALCULATIONS  **** 
WEXP  =    429-7    WMISC  =  1061 4.2    LHW  =   5-17     DPTHDR  =   3-04 


MATERIAL 

DENSITY (LB/FT**3) 

OUTER  TUBE  SHEET 558.0 

INNER  TUBE  SHEET 488.0 

TUBE  SUPPORT  PLATE 488.0 

TUBE  BUNDLE 282.0 

CONDENSER  SHELL 488.0 

HOTWELL 488.0 

WATERBOX 558.0 


THICKNESS 

WEIGHT 

(IN.) 

(LB.) 

6.0000 

13421  . 

2.0000 

3912. 

0.5625 

1708. 

• 

6868. 

0.6250 

7907. 

0.5625 

3599. 

2.6400 

4612. 

TOTAL  CONDENSER  DRY  WEIGHT= 
TOTAL  CONDENSER  WET  WEIGHT= 


53071.1  (LB.) 
61054.4  (LB.) 
27.26    (TON) 


TOTAL  CONDENSER  HEIGHT=   24-34  ( PT . ) 
OUTER  SHELL  DIAMETER=      6.19  (FT.) 
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ENCLOSED    BOX   VOLUME=  1002.2    (FT**3) 

DRYCG   =      12.00  WETCG-  =      11.41 

CONDENSER   PRICTIONAL   HEAD   LOSS=      89-9    (FT.) 
TOTAL   SYSTEM   HEAD   LOSS=  142.9    (FT.) 

TOTAL   SYSTEM   PUMPING    POWER=  397-3    (HP) 
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CONDENSER  NUMBER(   3) 
*  #  -*-*  ■*  -a--**-*-*-*  -x-  -x-  *  -x-  -*-*-*  -*■*•  -x--***  -x-  -x-  -x-  *  * 

.  .  CONDENSER  TYPE:  SUBMARINE  DESIGN 
.  .  SINGLE  PASS  CONDENSER  .  . 
.  .  DOUBLY  ENHANCED  TUBES  .  . 

****  DATA  input  **** 

.  .  PLOW  RATE:  13000.  (GPM)   .  .  PLOW  VELOCITY:  10.00  (FT/ SEC)  .  . 

DI  =  0.555     DW  =  0.625  AE  =  0.010     AEPE  =  0.2450     NTYPE  =   2 

EI  =  0.0240   PI  =  0.0949  PE  =   4-54    MI  =  0.580       RI  =  0.0075 

KW  =    9.60    TCI  =   66.10  PSAT  =  6.50    QSTM  =  0.85       TSAT  =  143-89 

STMLD  =   257000.0  RSCALE  =  0.00033 

****  DATA  OUTPUT  -  CONDENSER  SIZING  ROUTINE  **** 
.  MAXIMUM  MAIN  STEAM  LANE  ENTRANCE  VELOCITY:  200.  (FT/ SEC) 
.  CONDENSATE  DRAINAGE  PLATE  SPACING:   1.05  (FT.) 
.  CONDENSER  HEAT  LOAD:     0.22094E+09  (BTU/HR) 
.  OUTLET  COOLANT  TEMP:     100.95  (DEG.F) 
.  TOTAL  NUMBER  OF  TUBES:   1724-0 

.  EFFECTIVE  TUBE  LENGTH:  13-09  (FT.) 

.  AVG.  HEAT  TRNFR.  COEFF.  C.W.:     4981.  [ BTU/HR-FT**2-DEG.F 

.  AVG.  HEAT  TRNFR.  COEFP.  COND.:   33785-  ( BTU/HR-FT**2-DEG. F 

.  AVG.  OVERALL  HEAT  TRNFR.  COEFP.:   928.  ( BTU/HR-FT**2-DEG. F) 

LTOT  =  14-94     LANE  =   1-38      DTB  =    3-26     ATB  =    8.36 
VTB  =  109.37     DTS  =   6.02       ATS  =   28.42 

****  DATA  OUTPUT  -  WEIGHT  &  VOLUME  CALCULATIONS  **** 
WEXP  =    389-7   WMISC  =  10193-1    LHW  =   5-17     DPTHDR  =   3-01 

MATERIAL 

DENSITY(LB/FT**3) 

OUTER  TUBE  SHEET 558.0 

INNER  TUBE  SHEET 488.0 

TUBE  SUPPORT  PLATE 488.0 

TUBE  BUNDLE 282.0 

CONDENSER  SHELL 488.0 

HOTWELL 488.0 

WATERBOX 558.0 

.  .  TOTAL  CONDENSER  DRY  WEIGHT=    50965-3  (LB.) 
.  .  TOTAL  CONDENSER  WET  WEIGHT=    58689-8  (LB.) 

26.20  (TON) 


THICKNESS 

WEIGHT 

(IN.) 

(LB.) 

6.0000 

13540. 

2.0000 

3947. 

0.5625 

1421  . 

• 

4279. 

0.6250 

7239- 

0.5625 

3556. 

2.6400 

6400. 

TOTAL  CONDENSER  HEIGHT=   23-12  (FT.) 
OUTER  SHELL  DIAMETER=      6.12  (FT.) 
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ENCLOSED  BOX  VOLUME=      934-4  (FT**3) 
DRYCG-  =   10.97     WETCG-  =   10.46 

CONDENSER  FRICTIONAL  HEAD  LOSS=   43-1  (FT.) 
TOTAL  SYSTEM  HEAD  LOSS=  78.9  (FT.) 

TOTAL  SYSTEM  PUMPING  POWER=     361 .0  (HP) 
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CONDENSER  NUMBER (   4) 

CONDENSER  TYPE:  SUBMARINE  DESIGN 

DOUBLE  PASS  CONDENSER  WITH  CONVENTIONAL  RETURN  HEADER  DESIGN 

DOUBLY  ENHANCED  TUBES  .  . 

****  DATA  INPUT  **** 
PLOW  RATE:   7900.  (GPM)   .  .  PLOW  VELOCITY: 


DI  =  0.555 
EI  =  0.0240 
KW  =    9-60 


DW  =  0.625 
PI  =  0.0949 
TCI  =   66 .10 


STMLD  =   257000.0 


AE  =  0.010 
PE  =   4.54 
PSAT  =  6.50 
RSCALE  =  0.00033 


10.00  (PT/SEC)  . 
AEPE  =  0.2450    NTYPE 
MI  =  0.580 
QSTM  =  0.85 


RI  =  0.0075 
TSAT  =  143-89 


****  DATA  OUTPUT  -  CONDENSER  SIZING  ROUTINE  **** 
MAXIMUM  MAIN  STEAM  LANE  ENTRANCE  VELOCITY:  300.  (PT/SEC) 
CONDENSATE  DRAINAGE  PLATE  SPACING:   2.25  ( PT . ) 


*  *  PROGRAM  WARNING 
BEYOND  TUBE  SUPPORT 

*  * 

*  * 


*  -*• 


PROGRAM  WARNING 
PROGRAM  WARNING 
PROGRAM  WARNING 
PROGRAM  WARNING 
PROGRAM  WARNING 
PROGRAM  WARNING 
PROGRAM  WARNING 
PROGRAM  WARNING 
CONDENSER  HEAT 
OUTLET  COOLANT 
TOTAL  NUMBER  OP 


NR-3: 

LIMIT 
NR-2 

NR-2 
NR-2 
NR-2 
NR-2 
NR-2 
NR-2 
NR-2 
LOAD: 
TEMP: 
TUBES 


PECIPIED  CONDENSATE  DRA 

*  MAXIMUM  TUBE  DEFLECT 

WCWF"  BEYOND  SPECIFICAT 

BEYOND 

BEYOND 

BEYOND 

BEYOND 

BEYOND 

BEYOND 

BEYOND 


WCWF" 
WCWF" 
WCWF" 

WCWF" 
WCWF" 
WCWF" 
WCWF" 


0.22094E+09 


123.44 
2096.0 


(DEG.F) 


SPECIPICAT 
SPECIPICAT 
SPECIPICAT 
SPECIPICAT 
SPECIFICAT 
SPECIPICAT 
SPECIFICAT 
(BTU/HR) 


INAGE  PLATE 
ION=  0.480 
ION  LIMITS  ■ 
ION  LIMITS  - 
ION  LIMITS  - 
ION  LIMITS  ■ 
ION  LIMITS  ■ 
ION  LIMITS  - 
ION  LIMITS  ■ 
ION  LIMITS  • 


SPACING  IS 
(IN.) 

•  SECTION 

■  SECTION 

■  SECTION 

•  SECTION 

•  SECTION 

•  SECTION 

•  SECTION 

•  SECTION 


EFFECTIVE  TUBE  LENGTH: 
AVG.  HEAT  TRNFR.  COEPF.  C.W.: 
AVG.  HEAT  TRNFR.  COEFP.  COND.: 
AVG.  OVERALL  HEAT  TRNFR.  COEFF 


LTOT   =    16.30 
VTB   =    146.81 


LANE  = 

0.82 

DTB  = 

3.60 

DTS  = 

5.23 

ATS  = 

21  .52 

14.45  (PT.) 

5688.  (BTU/HR-FT**2-DEG.F) 

36119-  (BTU/HR-FT**2-DEG.F) 

954.  (BTU/HR-FT**2-DEG.F) 


ATB  =      10.16 


****  DATA  OUTPUT  -  WEIGHT  &  VOLUME  CALCULATIONS  **** 
WEXP  =    429-7   WMISC  =   9128.7   LHW  =   5-20     DPTHDR  =   2.62 


OUTER  TUBE  SHEET 

INNER  TUBE  SHEET 

TUBE  SUPPORT  PLATE 


MATERIAL 

THICKNESS 

WEIGHT 

DENSITY(LB/FT**3) 

(IN.) 

(LB.) 

558.0 

6 . 0000 

9187. 

488.0 

2.0000 

2678. 

488.0 

0.5625 

788. 
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TUBE  BUNDLE 

CONDENSER  SHELL- 

HOTWELL 

WATERBOX 


232.0 
488.0 
488.0 
558.0 


0.6250 
0.5625 
2.6400 


5677 
6882 
3092 
7781 


TOTAL  CONDENSER  DRY  ¥EIGHT= 
TOTAL  CONDENSER  WET  WEIGHT= 


45643-3  (LB.) 
50770.8  (LB.) 
22.67  (TON) 


TOTAL  CONDENSER  HEIG-HT=  24.13  (FT.) 

OUTER  SHELL  DIAMETER=  5-34   FT.) 

ENCLOSED  BOX  VOLUME=  748.3  (FT**3) 

DRYCG-  =   12.37     WETCG  =   11.56 

CONDENSER  FRICTIONAL  HEAD  LOSS=   85.0  (FT.) 
TOTAL  SYSTEM  HEAD  LOSS=  138.0  (FT.) 

TOTAL  SYSTEM  PUMPING  PO¥ER=      383-7  (HP) 
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CONDENSER   NUMBER (       5) 

*  -X-  -X-  *  #  -X-  -X-  -X-  -X-  -X-  -X-  -X-  *  -X-  *  -X-  *  -X-  -*  *  -X-  -X-  -X-  *  *  *  *  *  * 

CONDENSER  TYPE:  SURFACE  SHIP  DESIGN 

DOUBLE  PASS  CONDENSER  WITH  CONVENTIONAL  RETURN  HEADER  DESIGN. 

DOUBLY  ENHANCED  TUBES  .  . 

*•***  DATA  INPUT  **** 

10.00  (FT/SEC)  .  . 
=  0.2450    NTYPE  =   2 
0.580       RI  =  0.0075 
=  0.85      TSAT  =  143-89 


****  DATA  INPUT  **** 

.  .  FLOW  RATS:   7900 

.  (GPM)   .  .  FLOW  VELOCITY 

DI  =  0.555     DW  =  0 

.625     AE  =  0.010    AEPS 

EI  =  0.0240    PI  =  0 

0949   FE  =  4-54    MI  = 

KW  =    9.60    TCI  = 

66.10   PSAT  =6.50    QSTM 

STMLD  =   257000.0 

RSCALE  =  0.00033 

****  DATA  OUTPUT  -  CONDENSER  SIZING  ROUTINE  **** 
MAXIMUM  MAIN  STEAM  LANE  ENTRANCE  VELOCITY:  200.  (FT/SEC) 
CONDENSATE  DRAINAGE  PLATE  SPACING:   1.05  (FT.) 
CONDENSER  HEAT  LOAD:     0.22094E+09  (BTU/HR) 
OUTLET  COOLANT  TEMP:     123-44  (DEG.F) 
TOTAL  NUMBER  OF  TUBES:   2096.0 

EFFECTIVE  TUBE  LENGTH:  14-27  (FT.) 

AVG.  HEAT  TRNFR.  COEFF.  C.W.:     5950.  ( BTU/HR-FT**2-DEG. F 

AVG.  HEAT  TRNFR.  COEFF.  COND.:   41106.  ( BTU/HR-FT**2-DEG.F 

AVG.  OVERALL  HEAT  TRNFR.  COEFF.:   997-  ( BTU/HR-FT**2-DEG. F) 


LTOT  =  14-61 
VTB  =  145.03 


LANE  =   1 .25 
DTS  =   6.09 


DTB  =    3-60 
ATS  =   29-10 


ATB  =   10.16 


****  DATA  OUTPUT  -  WEIGHT  &  VOLUME  CALCULATIONS  **** 
WEXP  =    429-7    WMISC  =   6579-4    LHW  =   5-17     DPTHDR  =   3-04 


MATERIAL 
DENSITY (LB/FT**3) 

TUBE  SHEET 488.0 

TUBE  SUPPORT  PLATE 488.0 

TUBE  BUNDLE 282.0 

CONDENSER  SHELL 488.0 

HOTWELL 488.0 

WATERBOX 558.0 


TOTAL  CONDENSER  DRY  WEIGHT= 
TOTAL  CONDENSER  WET  WEIGHT= 


THICKNESS 

WEIGHT 

(IN.) 

(LB.) 

2.0000 

3912. 

0.5625 

1708. 

-X-  -X--X--X--X- 

• 

5086. 

0.6250 

7161  . 

0.5625 

3599- 

1 . 5000 

4421  . 

TOTAL  CONDENSER  HEIGHT=  22.82 
OUTER  SHELL  DIAMETER=  6.19 
ENCLOSED  BOX  VOLUME=     943-9 


32896.9  (LB.) 
40877.5  (LB.) 
18.25  (TON) 

(FT.) 
(FT.) 
(FT**3) 
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DRYCG  =   11.18    WETCG  =   10.40 

CONDENSER  FRICTIONAL  HEAD  LOSS=  76.7  (FT.) 
TOTAL  SYSTEM  HEAD  LOSS=  129-7  (FT.) 
TOTAL  SYSTEM  PUMPING  PO¥ER=      360.8  (HP) 
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******  *********-*-X--X-*-X--X-*-X--**-**-X--* 

CONDENSER   NUMBER (       6) 

*  ****  ***  -X-  **  -X-  *******  *  ***  -x-  *  *  **  * 

CONDENSER  TYPE:  SURFACE  SHIP  DESIGN 
SINGLE  PASS  CONDENSER  .  . 
SMOOTH  INTERNAL  TUBES  .  . 

****  DATA  INPUT  **** 


.  .  FLOW  RATE 
DI  =  0.555 
EI  =  0.0000 
K¥  =    9.60 


13000.  (GPM) 
DW  =  0.625 
PI  =  0.0000 
TCI  =   66.10 


STMLD  =   257000.0 


.  .  FLOW  VELOCITY: 
AE  =  0.010     AEPE  = 
FE  =   4.54    MI  =  0 
PSAT  =6.50    QSTM  = 
RSCALE  =  0.00033 


8.00  (FT/SEC)  .  . 
0.2450    NTYPE  =   1 
000       RI  =  0.0000 
0.85      TSAT  =  143-89 


****  DATA  OUTPUT  -  CONDENSER  SIZING  ROUTINE  **** 
MAXIMUM  MAIN  STEAM  LANE  ENTRANCE  VELOCITY:  200.  (FT/ SEC ) 
CONDENSATE  DRAINAGE  PLATE  SPACING:   1.65  (FT.) 
CONDENSER  HEAT  LOAD:     0.22094E+09  (BTU/HR) 
OUTLET  COOLANT  TEMP:     100.95  (DEG.F) 
TOTAL  NUMBER  OF  TUBES:   2155.0 


EFFECTIVE  TUBE  LENGTH: 
AVG.  HEAT  TRNFR.  COEFF.  C.W.: 
AVG.  HEAT  TRNFR.  COEFF.  COND . : 
AVG.  OVERALL  HEAT  TRNFR.  COEFF, 


LTOT  =  16.27 
VTB  =  166.52 


LANE  =   1.10 
DTS  =   5-84 


15.94 

141  9. 

37557. 

:   594. 

DTB  = 
ATS  = 


(FT.) 

(BTU/HR-FT**2-DEG.F 
( BTU/HR-FT**2-DEG . F. 
( BTU/HR-FT**2-DEG .  F) 


3-65 
26.82 


ATB  =   10.45 


****  DATA  OUTPUT  -  WEIGHT  &  VOLUME  CALCULATIONS  **** 
WEXP  =    435-7    WMISC  =   6692.9    LHW  =   5-15      DPTHDR  =   2.92 


MATERIAL 
DENSITY (LB/FT**3) 

TUBE  SHEET 488.0 

TUBE  SUPPORT  PLATE 488.0 

TUBE  BUNDLE 282.0 

CONDENSER  SHELL 488.0 

HOTWELL 488.0 

WATERBOX 558.0 


THICKNESS 

WEIGHT 

(IN.) 

(LB.) 

2.0000 

3517. 

0.5625 

1349. 

*     -X--X--X--X- 

• 

5826. 

0.6250 

7661  . 

0.5625 

3438. 

1 . 5000 

4545. 

TOTAL  CONDENSER  DRY  WEIGHT= 
TOTAL  CONDENSER  WET  WEIGHT= 


TOTAL  CONDENSER  HEIGHT= 
OUTER  SHELL  DIAMETER= 
ENCLOSED  BOX  VOLUME= 


33464.5  (LB.) 
40574.4  (LB.) 
18.11  (TON) 

FT.) 
(FT.) 


24.35 
5-95 
927.5  (FT**3) 
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DRYCG-   =      11.51  WETCG  =      10.69 

CONDENSER  FRICTIONAL  HEAD  LOSS=    6.6  (FT.) 
TOTAL  SYSTEM  HEAD  LOSS=          42.4   FT.) 

TOTAL  SYSTEM  PUMPING  PO¥ER=      194.0  (HP) 
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****  DATA 

SUMMARY  **** 

CONDENSER 

SHELL 

TOTAL 

ENCLOSED 

TOTAL  WET 

TOTAL  SYSTEM 

NUMBER 

DIAMETER 

HEIGHT 

BOX  VOLUME 

WEIGHT 

PUMPING  POWER 

(FT.) 

(FT.) 

(FT**3) 

(LB.) 

(HP) 

1  . 

6.19 

24.34 

1002.2 

63450. 

381  .3 

2. 

6.19 

24.34 

1002.2 

61054. 

397.3 

3- 

6.12 

23.12 

934-4 

58690. 

361  .0 

4. 

5-34 

24.13 

748.3 

50771 . 

383-7 

5. 

6.19 

22.82 

943.9 

40878. 

360.8 

6. 

5.95 

24-35 

927.5 

40574. 

194.0 
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c  *  *  *  ****************** 

C   PROGRAM:  VERTCON1 
p********************* 

C  PROGRAM  "VERTCON1"  IS  A  PRELIMINARY  SIZING  ROUTINE  FOR  VERTICAL  TUBE 

C  STEAM  SHIP/SUBMARINE  PROPULSION  CONDENSERS.  THE  PROGRAM  TAKES  INITIAL 

C  INPUT  DATA  BOTH  INTERACTIVELY  AND  FROM  DATA  FILES.  THE  PROGRAM  OUTPUT 

C  CONSISTS  OF  TABULATED  VALUES  FOR  TOTAL  &  COMPONENT  CONDENSER  WEIGHTS, 

C  VOLUMES,  AND  PUMPING  POWER. 

C 

C  TWO  BASIC  VERTICAL  TUBE  CONFIGURATIONS  ARE  AVAILABLE  WITH  THIS  PROGRAM 

C  AND  THEY  ARE:  (1)  DOUBLY  ENHANCED  TUBES,  OR  (2)  SMOOTH  INTERNAL  TUBES 

C  WITH  EXTERNAL  ENHANCEMENT  ONLY.  SEVERAL  GEOMETRIC  VARIATIONS  WITHIN 

C  THESE  TWO  BASIC  CONFIGURATIONS  CAN  BE  INVESTIGATED  WITH  "VERTCON1" . 

C 

C  ALSO,  TWO  BASIC  CONSTRUCTION  CONFIGURATIONS  ARE  AVAILABLE  FOR  "DOUBLE- 

C  PASS"  CONDENSERS:  (1)  CONVENTIONAL  RETURN  HEADER  DESIGN,  AND 

C  (2)  "U-TUBE"  CONSTRUCTION 

C 

C  THE  VALUES  OF  CONDENSATE  DRAINAGE  PLATE  SPACING  (FT.),  AND  MAXIMUM 

C  MAIN  STEAM  LANE  ENTRANCE  VELOCITY  (FT/SEC)  MAY  BE  SPECIFIED  BY  THE 

C  USER  INTERACTIVELY  WHEN  RUNNING  THIS  PROGRAM.  IF  THESE  VALUES  ARE 

C  NOT  SPECIFIED,  THEN  THE  PROGRAM  WILL  AUTOMATICALLY  DETERMINE 

C  RECOMMENDED  VALUES. 

C 

DIMENSION  DATA(100,5),  OUTPUT ( 100 , 6 ) 

REAL  ITSD,KSAT,KSW,KW,L1 , LANE , LHW , LTOT , MI ,MU,NT,NU 

INTEGER  STM, CONFIG, CTYPE, DRAIN 

DATA  NOE/'NO   '/,NO/'N    ' / , ITYPE/ ' SUB  '/ 

DATA  PIE/3 .1415927/ ,PD/1 .35/ 
C 

C  *  *  *  STATEMENT  FUNCTIONS  FOR  THERMAL  &  MECHANICAL  PROPERTIES  *  *  * 
C 

NU(TCS)=  .122181  -  .1481615E-02  *  TCS  +  .5516445E-05  *  TCS**2 

RE(VM)=     VM  *  DI  *  300.  /  NU(TCS) 

PRSW(TCS)=     .0014369    *    TCS**2    -    .3134    *    TCS    +    2  1.89 

KSW(TCS)=   -.000003086  *  TCS**2  +  .001  *  TCS  +  .291 
C  NU=    KINEMATIC  VISCOSITY  OF  COOLING  WATER  (FT**2/HR) 
C  RE=    REYNOLDS  NUMBER  COOLING  WATER 
C  PRSW=  PRANDTL  NUMBER  COOLING  WATER 

C  KSW=   CONDUCTIVITY  OF  COOLING  WATER  ( BTU / HR-FT-DEG . F ) 
C 

FF(ARG2)=  -1.  /  (2.46  *  LOG(ARG2**MI  +  RI)) 

ST(ARG3 ,ARG4)=  FF(ARG2)  /  (5.68  *  ARG3 ** ( - . 12 5 )  *SQRT ( PRSW ( TCS ) ) 
1   *  ARG4**.13  6  +  GAMMA) 
C  FF=  FRICTION  FACTOR  [SQRT(F/8)] 
C  ST=  STANTON  NUMBER 
C 
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KIN=  20 
KOUT=  2  1 
KSCR=  6 
C  KIN, KOUT,  AND  KSCR  ARE  OPERATORS  THAT  SPECIFY  INPUT  &  OUTPUT  DEVICES. 
C  IN  THIS  CASE  KIN  &  KOUT  SPECIFY  INPUT  &  OUTPUT  DATA  FILES  RESPECTIVELY 
C  AND  KSCR  SPECIFIES  INPUT  &  OUTPUT  AT  COMPUTER  TERMINAL. 
C 

C  *  *  *  *  DATA(INTERACTIVE  &  F ILE ) -INPUT / OUTPUT  *  *  *  * 
C 

WRITE(KSCR, 100) 
100      F0RMAT(1X,T14 ,  ' *  *  WELCOME  TO  PROGRAM:  VERTCON , VERS  ION- 1  *  *'//T 
12, 'ENTER  PROGRAM  RUN  NUMBER') 
READ(KSCR,*)  NUMBER 
WRITE (KOUT,  104)  . NUMBER 
104     FORMAT(/////T21  , '**  PROGRAM:  VERTCON , VERS  ION- 1  **'//// T2 5 ,' PROGR 
1AM  RUN  NUMBER( '  ,13  ,')' /////) 
C 

WRITE(KOUT , 106) 
106  F0RMAT(1X,T26 , '****  VARIABLE  LIST  ****'/ /T2 ,' AE=  EXTERNAL  FLUTE  A 
1MPLITUDE  ( IN. ) ' ,T3 8, ' . ' ,T41 , 'MI=  OPERAND  FOR  FRICTION  FACTOR;'/T2, 
l'AEPE=  AMPLITUDE-TO-PITCH  RATIO  OF '  , T3 8  ,  '  .  '  ,  T45  ,  ' HELI CAL  INTERNAL 
1RIDGING' /T6 , 'EXTERNAL  RIDGING ' , T3 8 , ' . ' , T 4 1 , ' NTYPE=  TUBE  TYPE:  1-FO 
1R  SMOOTH  IN-' /T2  , ' ATB=  AREA  OF  TUBE  BUNDLE  ( FT**2 ) '  ,  T3 8 , '  . '  ,  T45  ,  ' T 
1ERNAL  TUBE;  AND  2-FOR  DOUBLY ' /T2 ,' ATS =  AREA  OF  TUBE  SHEET  (FT**2)' 
1  ,T38 ,'.'  ,T45 ,  'ENHANCED  TUBES ' /T2  ,' DI=  INTERNAL  TUBE  DIAMETER  (IN.) 
1'  ,T38, '  . '  ,T41  ,  'PI=  PITCH  OF  INTERNAL  HELIX ( IN .)' /T2  ,' DPTHDR=  HEADE 
1R  DEPTH  (FT  .  ) '  ,T38,  '  .  '  ,T41  , 'PSAT=  CONDENSER  OPERATING  PRESSURE'/T2 
1,'DRYCG=  HEIGHT  OF  CENTER  OF  GRAVITY ', T3 8 ,'.', T4 5 ,'( IN . HG ) ABSOLUTE 
l'/T6, 'ABOVE  CONDENSER  BOTTOM  AT  DRY '  ,  T3 8  ,  '  .  '  , T4 1 , ' QSTM=  QUALITY  OF 
1  INLET  STEAM  TO '/ T6 ,' WEIGHT  ( FT .)', T3 8 ,'.', T45 ,' CONDENSER ' /T2 ,' DTB 
1=  DIAMETER  OF  TUBE  BUNDLE  ( FT  .  ) '  , T3 8 , '  . '  , T4 1  ,  ' RI=  OPERAND  FOR  FRIC 
1TION  FACTOR,  ' /T2  ,  'DTS=  DIAMETER  OF  TUBE  SHEET ( FT . ) '  ,  T3 8 ,  '  .  '  ,  T 4 5  ,  '  H 
1ELICAL  INTERNAL  RIDGING') 
WRITE(KOUT, 108) 
108  F0RMAT(1X,T2 , 'DW=  TUBE  WALL  DIAMETER  ( IN . ) ' , T3 8 , ' . ' , T4 1 , ' RS CALE= 
1  FOULING  RESISTANCE' /T2 , 'EI=  OPERAND  FOR  FRICTION  FACTOR ', T3 8 ,'.' , 
IT 45,  '(HR-FT**2-DEG.F/BTU) ' /T6,  'HELICAL  INTERNAL  RIDGING'  ,T3  8,  '  . '  ,T 
141,'STMLD=  STEAM  LOAD  ( LBM/ HR) ' /T2 , ' FE=  OPERAND  FOR  CONDENSING  HEA 
IT'  ,T38, '  .  '  ,T41 , 'TSAT=  SATURATION  TEMP.  ( DEG . F )' /T6 ,' TRANSFER  COEFF 
1ICIENT'  ,T38, '  . '  ,T41  ,  'VTB=  VOLUME  OF  TUBE  BUNDLE  ( FT**3 ) ' /T2 , ' KW=  C 
10NDUCTIVITY  OF  TUBE  WALL '  ,  T3 8  ,  '  .  '  ,  T4 1  ,  ' WEXP=  EXPANSION  JOINT  WEIGH 
IT  (LB.) '/T6, ' (BTU/HR-FT-DEG.F)' ,T38, ' . ' ,T41 , 'WMISC=  WEIGHT  OF  MISC 
1ELLANE0US'/T2 ,  'LANE=  STEAM  LANE  BREADTH  ( FT  .  )  '  ,  T3 8  ,  '  .  '  , T45 , ' COMPON 
1ENTS  (LB. ) ' /T2  , ' LHW=  LENGTH  OF  HOTWELL  ( FT  .  ) '  ,  T3 8  ,  '  .  '  , T4 1 , ' WETCG= 
1HEIGHT  OF  CENTER  OF  GRAVIT Y ' / T2 , ' LTOT=  TOTAL  TUBE  LENGTH  (FT.)',T3 
18, '.'  ,T45, 'ABOVE  CONDENSER  BOTTOM  AT  WET ' /T2  , ' TCI=  INLET  COOLANT  T 
1EMP.  (DEG. F) '  ,T38, '.'  ,T45 ,  'WEIGHT  (FT.)'/) 
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c 


WRITE(KSCR, 110) 
110      F0RMAT( IX, ' ENTER  THE  NUMBER  OF  CONDENSERS  TO  BE  SIZED') 
READ(KSCR,*)  NCOND 

DO  10  N=  1,  NCOND 

CONFIG=  3 
WRITE(KOUT, 112  ) 
112      FORMAT('l'  T2 1  '*****************************') 

WRITE(KOUT, 114)  N 
WRITE(KSCR,114)  N 

114  F0RMAT(1X,T25,  'CONDENSER  NUMBER (', 13  ,')'  ) 
WRITE(KOUT, 115) 

115  F0RMAT(1X  T2 1  '*****************************') 

READ(KIN,12 1 )  CTYPE 
121     FORMAT(A4) 

RE AD (KIN,*)  NTYPE,DI,DW,AE,AEPE,EI ,PI 

READ (KIN,*)  FLUTE,FE,MI,RI,KW,RSCALE 

RE AD (KIN,*)  TCI,TSAT , QSTM , STMLD , PS AT ,TIS 

READ(KIN,*)  TOTS , TSHL , TTSP , THW , THDR , ITSD 

RE AD (KIN,*)  OTSD,SHLD,TSPD,HWD,HDRD,TBD,ETUBE,TCOVER,COVERD 

IF(CTYPE  .EQ.  ITYPE)  THEN 

INDEX1=  1 

WRITE(KOUT, 13  8) 
138  F0RMAT(1X,'.     .     CONDENSER    TYPE:     SUBMARINE    DESIGN') 

ELSE 

INDEX1=    2 

WRITE(KOUT, 140) 
140     F0RMAT(1X,'.  .  CONDENSER  TYPE:  SURFACE  SHIP  DESIGN') 

END  IF 

i 

WRITE(KSCR, 116) 

116  F0RMAT(1X, 'ENTER  "1"  FOR  SINGLE  PASS,  OR  "2"  FOR  DOUBLE  PASS  CON 
1DENSER' ) 

READ(KSCR,*)  NPASS 
IF(NPASS  .LE.  1)  THEN 
WRITE(KOUT ,118) 
118     F0RMAT(1X,'.  .  SINGLE  PASS  CONDENSER  .  .') 
ELSE 
END  IF 

IF(NPASS  .GT.  1)  THEN 
WRITE(KSCR, 155) 
155     F0RMAT(1X, 'TWO  BASIC  CONFIGURATIONS  ARE  AVAILABLE  FOR  "DOUBLE  PA 
1SS  CONDENSERS:  '/T5,'(l)  CONVENTIONAL  RETURN  HEADER  DESIGN,  AND'/T 
15,  '(2)  "U-TUBE"  CONSTRUCTION' /T2  , 'ENTER  1  OR  2  FOR  CONFIGURATION  S 


c 


c 


c 


1ELECTI0N' ) 

READ(KSCR,*)  CONFIG 

ELSE 

END  IF 

IF(CONFIG  .GT.  2)  THEN 

GO  TO  880 

ELSE  IF(C0NFIG  .LE.  1)  THEN 

WRITE(KOUT, 160) 
160     F0RMAT(1X,'.  .  DOUBLE  PASS  CONDENSER  WITH  CONVENTIONAL  RETURN  HE 
1ADER  DESIGN. ' ) 

ELSE 

WRITE(KOUT, 162  ) 
162   F0RMAT(1X,'.  .  DOUBLE  PASS  CONDENSER  WITH  "U-TUBE"  CONSTRUCTION.') 

END  IF 
880     CONTINUE 

i 

IF(NTYPE  .LE.  1)  THEN 

WRITE(KOUT  ,  122  ) 
122      F0RMAT(1X,'.  .  SMOOTH  INTERNAL  TUBES  .  .') 

ELSE 

WRITE(KOUT, 124) 
124      F0RMAT(1X,'.  .  DOUBLY  ENHANCED  TUBES  .  .') 

END  IF 

WRITE(KSCR, 12  6) 
126     F0RMAT(1X, 'ENTER:  (1)  COOLANT  FLOW  RATE  ( GPM) ' / T9 , ' (2 )  COOLANT  F 
1LOW  VELOCITY  (FT/SEC),  AND'/T9,'(3)  FRICTION  FACTOR  FOR  INTERNAL  T 
1UBE') 

READ(KSCR,*)  GPM,VM,FFT 

WRITE(KOUT, 128) 
128     FORMAT( 1X,T27 , '****  DATA  INPUT  ****') 

WRITE(KOUT, 130)  GPM,VM 
130     F0RMAT(1X,'.  .  FLOW  RATE:  ',F6.0,'  (GPM)   .  .  FLOW  VELOCITY:  ',F 
15.2,'  (FT/SEC)  .  .') 

WRITE (KOUT , 13  2 )  DI ,DW,AE , AEPE , NTYPE , EI ,PI,FE,MI,RI,KW,TCI,PSAT, 
1  QSTM,TSAT,STMLD,RSCALE 

132     F0RMAT(1X, 'DI  =  '  ,  F5  .3  ,  T 1 6 , ' DW  =  '  ,  F5  .3  , T3 0 , ' AE  =  '  ,  F5  .3  , T44 , ' AE 
1PE  =  '  ,F6.4,T61  ,  'NTYPE  =  ',I2/T2,'EI  =  '  , F6 . 4 , T 1 6 , ' PI  =  ',F6.4,T30 
1,'FE  =  '  ,F5.2  ,T44 , 'MI  =  '  ,  F5  .3  , T6 1  , ' RI  =  '  , F6 . 4 /T2  ,  ' KW  =  ',F6.2,T1 
16, 'TCI  =  '  ,F6.2  ,T30,  'PSAT  »  '  , F4 . 2 , T44 ,  ' QSTM  =  '  , F4 . 2 , T 6 1 , ' TS AT  = 
1' ,F6.2/T2 , 'STMLD  =  ' , F9 . 1 , T3 0 , ' RSCALE  =  ',F7.5/) 
WRITE(KOUT, 136) 
136    F0RMAT(1X,T15 , '****  DATA  OUTPUT  -  CONDENSER  SIZING  ROUTINE  ****') 

WRITE(KSCR, 142 ) 
142      F0RMAT(1X, 'DO  YOU  WANT  TO  SPECIFY  MAXIMUM  MAIN  STEAM  LANE  ENTRAN 
ICE  VELOCITY  ( FT/ SEC ) ? ' /T 6 , ' YES  OR  NO') 
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READ(KSCR, 144)  STM 
144     F0RMAT(A4) 

IF((STM  .EQ.  NO)  .OR.  (STM  .EQ.  NOE))  THEN 
INDEX2=  2 
WRITE(KSCR, 146) 
146     FORMAT ( IX, 'PROGRAM  WILL  SELECT  RECOMMENDED  MAXIMUM  MAIN  STEAM  LA 
1NE  ENTRANCE  VELOCITY  USING  CONDENSER  OPERATING  PRESSURE  AS  SELECTI 
ION  CRITERIA. ' //) 
ELSE 

INDEX2=  1 
WRITE(KSCR, 148) 
148     FORMAT( IX, 'ENTER  MAXIMUM  MAIN  STEAM  LANE  ENTRANCE  VELOCITY  (FT/S 
1EC)  ') 

READ(KSCR,*)  STMVEL 
END  IF 
C 

IF(INDEX2     .GT.     1)    GO    TO    770 
GO    TO    771 

770  CONTINUE 

IF(PSAT  .LT.  1.)  THEN 
STMVEL=  500. 

'ELSE  IF(PSAT  . GT .  5.)  THEN 
STMVEL=  200. 

ELSE  IF(PSAT  .LE.  3.)  THEN 
VEL=  600.  -  100.  *  PSAT 
STMVEL=  ANINT(VEL) 
ELSE  IF(PSAT  . GT .  3.)  THEN 
VEL=  450.  -  50.  *  PSAT 
STMVEL=  ANINT(VEL) 
ELSE 
END  IF 
C  STMVEL=  MAXIMUM  MAIN  STEAM  LANE  ENTRANCE  VELOCITY  (FT/SEC) 

771  CONTINUE 
WRITE(KOUT, 150)  STMVEL 

150     F0RMAT(1X,'.  .  MAXIMUM  MAIN  STEAM  LANE  ENTRANCE  VELOCITY:  ',F4.0 
1,'  (FT/SEC)') 


C 


WRITE(KSCR,164) 
164     FORMAT( IX, 'DO  YOU  WANT  TO  SPECIFY  CONDENSATE  DRAINAGE  PLATE  SPAC 
1ING  (FT.)?'/T6, 'YES  OF  NO') 

READ(KSCR, 166)  DRAIN 
166     F0RMAT(A4) 

IF((DRAIN  .EQ.  NO)  .OR.  (DRAIN  .EQ.  NOE))  THEN 

INDEX3=  2 

WRITE(KSCR,168) 
168     FORMAT (IX, 'PROGRAM  WILL  SELECT  RECOMMENDED  CONDENSATE  DRAINAGE  P 
1LATE  SPACING.'//) 

ELSE 
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INDEX3=  1 

WRITE  (KSCR,170) 
170     F0RMAT(1X, 'ENTER  CONDENSATE  DRAINAGE  PLATE  SPACING  (FT.)') 

READ(KSCR,*)  DRNPLT 

WRITE(KOUT , 172 )  DRNPLT 
172      F0RMAT(1X,'.  .  CONDENSATE  DRAINAGE  PLATE  SPACING:  ',F5.2,'  (FT.) 

1'/) 

END  IF 
C 

C  *  *  *  *  FUNCTIONS  FOR  THERMAL  &  MECHANICAL  PROPERTIES  *  *  *  * 
C 

HFG=    1069.185  -  26.72568  *  PSAT  +  6.659357  *  PSAT**2  - 
1  .9288262  *  PSAT**3  +  .05023536  *  PSAT**4 

DENSC=  PSAT**2  *  .008829  -  PSAT  *  .21843  +  62.347 

KSAT=   (PSAT**2  *  (-.05904)  +  PSAT  *  3.0435  +  356.6)  *  .001 

MU=     5.045709  -  .0463856  *  TSAT  +  .1242855E-03  *  TSAT**2 

SIGMA=  .0057445  -  .7136956E-05  *  TSAT  -  .64168E-08  *  TSAT**2 

SPVOL=  1207.892  -  756.2292  *  PSAT  +  209.3  *  PSAT**2  - 
1  25.8823  *  PSAT**3  +  1.16875  *  PSAT**4 

C  HFG=    LATENT  HEAT  OF  CONDENSATION  (BTU/LBM) 
C  DENSC=  DENSITY  OF  CONDENSATE  (LBM/FT**3) 
C  KSAT=   CONDUCTIVITY  OF  CONDENSATE  ( BTU /HR-FT-DEG . F ) 
C  MU=     ABSOLUTE  VISCOSITY  OF  CONDENSATE  (LBM/HR-FT) 
C  SIGMA=  SURFACE  TENSION  OF  CONDENSATE  (LBF/FT) 

C  SPVOL=  SPECIFIC  VOLUME  OF  STEAM  AT  SAT.  CONDITIONS  (FT**3/LBM) 
C 

WF=  17875.5  /  MU  *  DENSC**2  *  AE**3  *  AE/AEPE  *  EXP(-3.33  *AEPE) 
C  WF  =  FLOODING  CONDENSATE  FLOW  RATE  PER  FLUTE  (LB/HR) 
C 

IF(AE  .LE.  .015)  THEN 

SPEC1=    3.54272    -    522.1174    *    AE    +    .1928462E+05    *    AE**2 

ELSE    IF    (AE     .LE.     .025)    THEN 

SPEC1=     .3110063     -    25.2006    *    AE    +    520.0139    *    AE    **2 

ELSE 

SPEC1=     .0303163    -    1.345982     *    AE    +    14.93315    *    AE**2 

END    IF 
C 

C  *  *  *  *  CALCULATION  OF  BASIC  CONDENSER  DATA  *  *  *  * 
C 

QT=  STMLD  *  QSTM  *  HFG 

AW  =  GPM  *  .00222  83  /  VM 

WC  =  AW  *  VM  *  230400. 
C  QT=  CONDENSER  HEAT  LOAD  (BTU/HR) 

C  AW=  TOTAL  CROSS-SECTIONAL  AREA  REQUIRED  FOR  COOLANT  FLOW  (FT**2) 
C  WC=  COOLING  WATER  FLOW  RATE  (LB/HR) 
C 

TOUT=  TCI  +  QT  /  (.95  *  WC ) 

ARG1=  DI  /  24. 
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NT=    AW  /  (PIE  *  ARG1**2) 

NT=    ANINT(NT) 

TNT=   NT  *  NPASS 

DN=    DW  +  AE  *  2  . 

0D=    DW  +  AE  *  4. 
C  TOUT=  OUTLET  COOLANT  TEMPERATURE  (DEG.F) 
C  NT=    NUMBER  OF  TUBES  PER  CONDENSER  PASS 
C  TNT=   TOTAL  NUMBER  OF  TUBES 
C  DN=    NOMINAL  TUBE  DIAMETER  (IN.) 
C  OD=    OUTSIDE  TUBE  DIAMETER  (IN.) 
C 
C  *  *  *  *  DETERMINATION  OF  CONDENSATE  DRAINAGE  PLATE  SPACING  *  *    *    * 

C 

MACH=   STMVEL  /  SQRT(3672.76  *  (TSAT  +  459.67)) 

CDRAG=  .75  *  MACH  +  .975 

WDRAG=  CDRAG  *  OD  *  DRNPLT  *  STMVEL**2  /  (24.  *  SPVOL) 

PITCH=  PD  *  OD 
C  MACH=   MACH  NUMBER  OF  STEAM  INLET  FLOW  TO  CONDENSER 

C  CDRAG=  DRAG  COEFFICIENT  FOR  STEAM  INLET  FLOW  OVER  CONDENSER  TUBES 
C  WDRAG=  DRAG  FORCE  LOADING  ON  TUBES  DUE  TO  STEAM  VELOCITY  (LBF.) 
C  PD=     TUBE  PITCH-TO-DIAMETER  RATIO 
C  PITCH=  TUBE  PITCH  (IN.) 
C 


IF(INDEX3  .LE.  1)  GO  TO  774 
DRNPLT=  2 .5 

DO  40  Nl=  1  ,  60 


DELT=  5. 

T2=  71 . 
C  "DRNPLT=3."  &  "DELT=5."  ARE  BOTH  ASSUMED  VALUES  TO  INITIATE  THE 
C  FOLLOWING  ITERATIVE  CALCULATIONS. 
C 

DO  30  N2=  1  ,  190 
C 

DTS=  T2  -  TCI 

TCS=  TCI  +  DTS  /  2 . 

ARG7=  (TSAT  -  TCI)  /  (TSAT  -  T2 ) 

DTLM=  DTS  /  LOG(ARG7) 
C  DTLM=  LOG  MEAN  TEMPERATURE  DIFFERENCE  (DEG.F) 

C  THIS  ANALYSIS  EXAMINES  A  SAMPLE  TUBE  SECTION  OF  LENGTH=  DRNPLT  TO 
C  DETERMINE  RECOMMENDED  VALUES  FOR  CONDENSATE  DRAINAGE  PLATE  SPACING. 
C  THIS  TUBE  SECTION  IS  LOCATED  IN  THE  COOLING  WATER  INLET  SECTION  OF  THE 
C  CONDENSER,  WHERE  THE  CONDENSATION  RATE/PER  UNIT  TUBE  LENGTH  WILL  BE  AT 
C  A  MAXIMUM. 

C  DRNPLT=  CONDENSATE  DRAINAGE  PLATE  SPACING  (FT.) 
C  DELT=    SAT.  TEMP.  -  TUBE  WALL  TEMP.  (DEG.F) 
C  T2=      TUBE  SECTION  C.W.  OUTLET  TEMP.  (DEG.F) 
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C  DTS=     C.W.  TEMP.  RISE  ACROSS  TUBE  SECTION  (DEG.F) 
C  TCS=     AVGERAGE  C.W.  TEMP.  FOR  EACH  SECTION  (DEG.F) 
C  DTLM=    LOG  MEAN  TEMPERATURE  DIFFERENCE  (DEG.F) 
C 

IF(NTYPE  .LE.  1)  THEN 

HW=  .023  *  KSW(TCS)  /  DI  *  12.  *  RE(VM)**.8  *  PRSW ( TCS ) ** . 4 
C  HW=  HEAT  TRANSFER  COEFFICIENT  COOLANT  SIDE  FOR  SMOOTH  INTERNAL  TUBE 
C      (BTU/HR-FT**2-DEG.F) 

ELSE 

ARG2=  7.  /  RE(VM) 

GAMMA=  -1.  *  (LOG(2.  *  EI/DI)  *  2.5  +  3.75) 

ARG3=   EI  /  PI 

ARG4=   EI/DI  *  RE(VM)  *  FF(ARG2) 

HW=      12.  *  KSW(TCS)  *  RE(VM)  *  PRSW(TCS)  *  ST ( ARG3 , ARG4 )  /  DI 
C  HW=  HEAT  TRANSFER  COEFFICIENT  COOLANT  SIDE  FOR  DOUBLY  ENHANCED  TUBES 
C       (BTU/HR-FT**2-DEG.F) 

END  IF 
C 

C 


DO  20  N3=  1  ,  10 


ARG5=  QSTM  *  HFG  *  WF  /  (DRNPLT  *  DELT) 

ARG6=  KSAT**3  *  DENSC*S IGMA*QSTM*HFG  *  4 . 1 7  *  1 0 . ** 8 / ( MU*DELT ) 

ARG8=  AE  /  12 . 

HCOND=  7.2324  *  ARG5**.0774  *  ARG8** .23 0 7  *  FE**.9226  /(AE/AEPE) 
1  *  ARG6**.2307 

C  HCOND=  HEAT  TRANSFER  COEFFICIENT  CONDENSATE  ( BTU /HR-FT**2 -DEG . F ) 
C 

US=  1.  /  (DN/(DI*HW)+RSCALE  +  l./HCOND  +  LOG ( DN /DI ) *DN / ( 2 4 . *KW ) ) 
C  US=  OVERALL  HEAT  TRANSFER  COEFFICIENT  ( BTU / HR-FT**2 -DEG . F ) 
C 

QS=    .95  *  WC  *  DTS 

DELT=  QS  *  12 .  /  (NT  *  PIE  *  DN  *  DRNPLT  *  HCOND) 
C  QS=  HEAT  LOAD  FOR  TUBE  SECTION  (BTU/HR) 

20     CONTINUE 
C 

Ll=  QS  *  12 .  /  (NT  *  PIE  *  DN  *  US  *  DTLM) 

IF(L1  .GT.  DRNPLT)  THEN 

T2=  T2  -  .025 

ELSE 

T2=  T2  +  .049 

END  IF 

COMP=  ABS(L1  -  DRNPLT) 

IF(COMP  .LE.  .01)  THEN 

GO  TO  772 

ELSE 

END  IF 
30     CONTINUE 
772     CONTINUE 
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WCWF=  QS  /  (NT  *  QSTM*  HFG  *  WF  *  FLUTE) 

DEFL=  .26526*WDRAG*DRNPLT**3  /  ( ETUBE* ( 0D**4  -  DI**4)) 
C  DEFL=  MAXIMUM  TUBE  DEFLECTION  (IN.) 

IF(WCWF  .LE.  SPEC1)  THEN 

WRITE(KOUT, 176)  DRNPLT 

WRITE(KSCR, 176)  DRNPLT 
176   F0RMAT(1X,'.  .  CONDENSATE  DRAINAGE  PLATE  SPACING:  ',F5.2,'  (FT.)') 

GO  TO  773 

ELSE  IF((WCWF  . GT .  SPEC1)  .OR.  (DEFL  . GT .  PITCH/2.))  THEN 

DRNPLT=  DRNPLT  -  .05 

ELSE 

END  IF 
40     CONTINUE 

IF(COMP  .GT.  .05)  THEN 

WRITE(KSCR, 174) 

WRITE(KOUT, 174) 
174      F0RMAT(1X,'*  *  PROGRAM  WARNING  NR-1:  "DRNPLT"  BEYOND  SPECIFICATI 
ION  LIMITS  *  *' /) 

ELSE 

END  IF 
7'73     CONTINUE 

IF(WCWF  .GT.  SPEC1)  THEN 

WRITE(KSCR, 178) 

WRITE(KOUT,  178) 
178     F0RMAT(1X,'*  *  PROGRAM  WARNING  NR-2 :  "WCWF"  BEYOND  SPECIFICATION 
1  LIMITS  *  *'/) 

ELSE 

END  IF 
774     CONTINUE 

DEFL=  1375.  *  WDRAG  *  DRNPLT**3  /  (ETUBE  *  (OD**4  -  DI**4)) 

IF(DEFL  .GT.  PITCH/2.)  THEN 

WRITE(KOUT  ,  180)  DEFL 

WRITE(KSCR, 180)  DEFL 
180     F0RMAT(1X,'*  *  PROGRAM  WARNING  NR-3 :  SPECIFIED  CONDENSATE  DRAINA 
1GE  PLATE  SPACING  IS  BEYOND  TUBE  SUPPORT  LIMIT  *  *'/T2  '    .  MAXIMUM 


1  TUBE  DEFLECTION=  ',F6.3,'  (IN.)') 

ELSE 

END  IF 

c  * 

c 

*  *  *  CALCULATION  OF  EFFECTIVE  TUBE  LENGTH 

SUML=   0.0 

SUMQ=   0.0 

AVGHW=  0.0 

AVGHC=  0.0 

AVGU=   0.0 

Tl=  TCI 

DO  70  N4=  1  ,  100 
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c 


c 


DELT=  5. 

T2=    Tl  +  5. 

DO  60  N5=  1,  190 

DTS=  T2  -  Tl 

TCS=  Tl  +  DTS  /  2  . 

ARG7=  (TSAT  -  Tl)  /  (TSAT  -  T2  ) 

DTLM=  DTS  /  LOG(ARG7) 

IF(NTYPE  .LE.  1)  THEN 

HW=  .023  *  KSW(TCS)/DI  *  12.  *  RE(VM)**.8  *  PRSW ( TCS ) ** . 4 

ELSE  ' 

ARG2=  7.  /  RE(VM) 

GAMMA=  -1.  *  (LOG(2.  *  EI/DI)  *  2.5  +  3.75) 

ARG3=  EI  /  PI 

ARG4=  EI/DI  *  RE(VM)  *  FF(ARG2) 

HW=  12.  *  KSW(TCS)  *  RE(VM)  *  PRSW(TCS)  *  ST ( ARG3 , ARG4 )  /  DI 

END  IF 

DO  50  N6=  1,  10 

ARG5=  QSTM  *  HFG  *  WF  /  (DRNPLT  *  DELT) 

ARG6=  KSAT**3  *  DENSC  *  SIGMA  *  QSTM  *  HFG*4 . 1 7  *  1 0 . ** 8 / (MU*DELT ) 
ARG8=  AE  /  12 . 

HCOND=  7.2324  *  ARG5**.0774  *  ARG8**.2307  *  FE**.9226  /(AE/AEPE) 
1  *  ARG6**.2307 

US=  1.  /  (DN/(DI*HW)+RSCALE  +  l./HCOND  +LOG ( DN /DI ) *DN/ ( 2 4 . *KW ) ) 
QS=  .95  *  WC  *  DTS 

DELT=  QS  *  12 .  /  (NT  *  PIE  *  DN  *  DRNPLT  *  HCOND) 
50     CONTINUE 

Ll=  QS  *  12 .  /  (NT  *  PIE  *  DN  *  US  *  DTLM) 
IF(L1  .GT.  DRNPLT)  THEN 
T2=  T2  -  .025 

ELSE 

T2=  T2  +  .049 

END  IF 

COMP=  ABS(Ll-DRNPLT) 
IF(COMP  .LE.  .01)  THEN 
GO  TO  775 
ELSE 
END  IF 
60     CONTINUE 


C 
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775     WCWF=  QS  /  (NT  *  QSTM  *  HFG  *  WF  *  FLUTE) 

IF(WCWF  .GT.  SPEC1)  THEN 

WRITE(KOUT, 182 )  N4 

WRITE(KSCR, 182 )  N4 
182      F0RMAT(1X,'*  *  PROGRAM  WARNING  NR-2 :  "WCWF"  BEYOND  SPECIFICATION 
1  LIMITS  -  SECTION  (',13,')  *  *  ') 

ELSE 

END  IF 
C 

DATA(N4, 1)=  QS 

DATA(N4,2)=  HW 

DATA(N4,3)=  HCOND 

DATA(N4,4)=  US 

DATA(N4,5)=  DRNPLT 
C  *  *  CALCULATION  OF  FINAL  SECTION  LENGTH  *  * 

SUML=   DATA(N4,5)  +  SUML 

SUMQ=   DATA(N4,1)  +  SUMQ 

AVGHW=  DATA(N4,2)  +  AVGHW 

AVGHC=  DATA(N4,3)  +  AVGHC 

AVGU=   DATA(N4,4)  +  AVGU 

DELT=  5. 

QFS=  QT  -  SUMQ 

TCS=  (TOUT  +  T2)/2  . 
C 

IF(NTYPE  .LE.  1)  THEN 

HW=  .023  *  KSW(TCS)/DI  *  12.  *  RE(VM)**.8  *  PRSW ( TCS ) ** . 4 

ELSE 

ARG2=  7./  RE(VM) 

ARG4=  EI  /  DI  *  RE(VM)  *  FF(ARG2) 

HW=  12.  *  KSW(TCS)  *  RE(VM)  *  PRSW(TCS)  *  ST ( ARG3 , ARG4 )  /  DI 

END  IF 
C 

TL=  2  .0 

DO  80  N7=  1  ,  10 

ARG5=   QSTM  *  HFG  *  WF  /  (TL  *  DELT) 

ARG6=  KSAT**3  *  DENSC  *  SIGMA  *  QSTM  *  HFG*4 . 1 7  *  1 0 . ** 8/ (MU*DELT ) 

HCOND=  7.2324  *  ARG5**.0774  *  ARG8**.2307  *  FE**.9226  /(AE/AEPE) 
1  *  ARG6**.2307 

US=  1.  /(DN/(DI*HW)+RSCALE  +  1. /HCOND  +  LOG ( DN/DI ) *DN/ (2 4 . *KW) ) 

ARG7=  (TSAT  -  T2 )  /  (TSAT  -  TOUT) 

DTLM=  (TOUT  -  T2 )  /  LOG(ARG7) 

QP=    QFS  *  12 .  /  (PIE  *  DN  *  NT) 

TL=    QP  /  (US  *  DTLM) 

DELT=  QP  /  (TL  *  HCOND) 
80     CONTINUE 
C 

IF(TL  .LE.  DRNPLT)  THEN 

NS  =  N4  +  1 
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SUML=  SUML  +  TL 

AVGHW=  AVGHW  /  NS 

AVGHC=  AVGHC  /  NS 

AVGU=   AVGU   /  NS 

GO  TO  776 

ELSE 

Tl=  T2 

END  IF 

WRITE(KSCR, 181)N4 
181      FORMAT(T2,'*  CONDENSER  S ECTION (  '  , 13  ,  '  )  CALCULATED  *') 
70     CONTINUE 
C 

C  *  *  CONDENSER  WEIGHT  &  VOLUME  CALCULATIONS  *  * 
C 
776     WRITE(KSCR,183 ) 
183      FORMAT(T2,'*  FINAL  CONDENSER  SECTION-CALCULATED  *') 

TOTL=  SUML  /  NPASS  *  1.025 
C 

IF(INDEX1  .LE.  1)  THEN 

LTOT=  (9.125  +  TIS)  /  6.  +  TOTL 

ELSE 

LTOT=  TIS  /  6.  +  TOTL 

END  IF 
C 

LANE=  .000106  *  STMLD  *  SPVOL  /  ((TOTL  -  1.84)  *  STMVEL) 

TND=   166.27  /  PITCH**2 
C  TOTL=  TOTAL  EFFECTIVE  TUBE  LENGTH  (FT.) 
C  LTOT=  TOTAL  TUBE  LENGTH  (FT.) 
C  LANE=  STEAM  LANE  BREADTH  (FT.) 

C  TND=   NUMBER  OF  TUBES  PER  SQ.  FT.  FOR  60  DEGREE  TRIANGULAR  PITCH 
C 

ATB=    TNT  /  TND 

DTB=    SQRT(4.  *  ATB  /  PIE) 

ARG10=  (DTB  +  2.  *  LANE)  /  2. 

ATS=    PIE  *  ARG10**2 

DTS=    DTB  +  2  *  LANE 

VTB=    TOTL  *  ATB 
C  ATB=  AREA  OF  TUBE  BUNDLE  (FT**2) 
C  DTB=  DIAMETER  OF  TUBE  BUNDLE  (FT.) 
C  ATS=  AREA  OF  TUBE  SHEET  (FT**2) 
C  DTS=  DIAMETER  OF  TUBE  SHEET  (FT.) 
C  VTB=  VOLUME  OF  TUBE  BUNDLE  (FT**3) 
C 

ARG12=  DTS  -  2  *  LANE  +  OD  /  6. 

WP1=  .785398    *    (ARG12**2    -    0D**2    *    TNT    *     .00694) 

WP2=  .785398    *    (DTS**2    -    0D**2     *TNT*     .00694) 

WOTS=   OTSD  *  TOTS  /  6.  *  WP2 

WITS=   ITSD  *  TIS  /  6.  *  WP2 
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WTSP=   NS  /  NPASS  *  TSPD  *  TTSP/12.  *  WP 1 

WTB=    .005454  *  (DN**2  -  DI**2 )  *  LTOT  *  TBD  *  TNT 

DSHL=   DTS  +  TSHL  /  6. 

DPTHDR=  DTS  /  2. 


WOTS  = 
WITS  = 
WTSP  = 
WTB  = 

WSHL  = 
DSHL  = 


WSHL  = 

WEIGHT 

WEIGHT 

WEIGHT 

WEIGHT 

WEIGHT 

OUTER 


.785398  *  SHLD  *  LTOT  *  (DSHL**2 
OF  OUTER  TUBE  SHEETS  (LB.) 
OF  INNER  TUBE  SHEETS  (LB.) 
OF  TUBE  SUPPORT  PLATES  (LB.) 
OF  TUBE  BUNDLE  (LB.) 
OF  SHELL  (LB.) 


-DTS**2 ) 


DIAMETER 


DPTHDR=  HEADER  DEPTH 


OF  SHELL 
(FT.) 


(FT.) 


LHW  = 
VHW  = 
WEXP  = 
WHDR  = 
WHW  = 


WEXP=  .39167  *  DTB  *  TSHL  * 

WHDR=  .4083  *  DTB**2  *  THDR 

VHW=   STMLD  /  3690.  -  .0417 

DHW=   DSHL  +  1 . 

LHW=   VHW  /  (.7854  *  DHW**2  ) 

WHW=   .2618  *  (DHW**2  /  4.  + 

LENGTH  OF  HOTWELL  (FT.) 

VOLUME  OF  HOTWELL  (FT.) 

WEIGHT  OF  EXPANSION  JOINT  (LB.) 

WEIGHT  OF  HEADER  (LB.) 

WEIGHT  OF  HOTWELL  (LB.) 


IF(CONFIG  .GT.  2)  THEN 
GO  TO  999 
ELSE 
END  IF 

IF(CONFIG  .GT. 
WCOVER=  .20415 
WHDR=  WHDR/2 .  + 
WUTUBE=  .005454 


SHLD 

*  HDRD 

*  ATB  * 


NTSP  -  .2618  *  TOTL 


+  DPTHDR  + 
DHW  *  LHW) 


.5 

*  THW 


HWD 


1)  THEN 
*  DTB**2 

WCOVER 

*  (DN**2  - 


*  TCOVER  *  COVERD 


DI**2  ) 
.005454  *  (DN**2  -  DI**2 )  * 


999 


WTB  = 

ELSE 

END  IF 

CONTINUE 

WT=     WOTS  +  WITS 

WMISC=  WT  *  .25 

WDRY  =   WT  *  1.25 

WLIQ=   .005454  *  DI**2 

WET=    WDRY  +  WLIQ 

TONS=   WET  /  2240. 
WMISC=  WEIGHT  OF  MISCELLANEOUS 
WDRY=   TOTAL  DRY  WEIGHT  OF  CONDENSER  (LB.) 
WLIQ=   TOTAL  LIQUID  WEIGHT  (LB.) 
WET=    TOTAL  WET  WEIGHT  OF  CONDENSER  (TONS) 


*  DTB  *  TBD  *  TNT 

LTOT  *  TBD  *  TNT  +  WUTUBE 


+  WTSP  +  WTB  +  WSHL  +  WEXP  +  WHDR  +  WHW 


*NT*LTOT  +  33.51  *  DSHL**3  +STMLD/2 2 6 93 5 


COMPONENTS  (LB.) 
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CONDH=    LHW  +  DPTHDR  +  LTOT 

BOXVOL=   DSHL**2  *  (LTOT  +  DPTHDR)  +  DHW**2  *  LHW 
C  CONDH=   CONDENSER  HEIGHT  (FT.) 

C  BOXVOL=  CONDENSER  ENCLOSED  BOX  VOLUME  (FT**3) 
C 

ARG14=  (LHW  +  LTOT/2.)  *  (WOTS  +  WITS  +  WTSP  +  WSHL  +  WEXP) 
1  +  (LHW/2.)  *  WHW  +  CONDH/2 .  *  WMISC 

IF(CONFIG  .GT.  1)  THEN 

DRYCG=  (ARG14  +  (LHW  -  DPTHDR/2 . ) *WDHDR/2 .  +  ( LHW+LTOT+DPTHDR/2 . ) 
1   *  (WCOVER  +  WUTUBE)  +  (LHW  +  LTOT/2.)  *  WTB)  /  WDRY 

ELSE 

DRYCG=  (ARG14  +  (LHW  +  LTOT/2.)  *  (WTB  +  WHDR))  /  WDRY 

END  IF 

ARG15=  STMLD  /  3690.  *  61.5 

ARG16=  WLIQ  -  ARG15 

WETCG=  (DRYCG  *  WDRY  +  ARG16  *  (LHW  +  LTOT/2.)  +  ARG15  *  VHW  / 
1  25.1328)  /  WET 

C  DRYCG=HEIGHT  OF  CENTER  OF  GRAVITY  ABOVE  CONDENSER  BOTTOM  FOR  CONDENSER 
C         AT  DRY  WEIGHT  (FT.) 

C  WETCG=HEIGHT  OF  CENTER  OF  GRAVITY  ABOVE  CONDENSER  BOTTOM  FOR  CONDENSER 
C         AT  WET  WEIGHT  (FT.) 
C 

IF(CONFIG  .GT.  1)  THEN 

HT=   FFT  *  (LTOT  +  DTB/2.)  *  NPASS  *  VM**2  /  (DI  *  5.353) 

HWB=  (1.5  +  .42  *  (VM  -  8.))  /  2. 

HE=   (1 .2  +  .6   *  (VM  -  6  .  ))  /  2  . 

ELSE 

HT=   FFT  *  LTOT  *  NPASS  *  VM**2  /  (DI  *  5.353) 

HWB=  1.5  +  .42  *  (VM  -  8.  ) 

HE=   1 .2  +  .6   *  (VM  -  6.) 

END  IF 
C 

HLP=  79.7  -  .00338  *  GPM 
C  HT=   FRICTIONAL  HEAD  LOSS  FOR  TUBES  (FT.) 
C  HWB=  WATERBOX  INLET  &  OUTLET  LOSSES  (FT.) 
C  HE=   TUBE  END  LOSSES  (FT.) 

C  HLP=  SEAWATER  CIRCULATING  LOOP  PIPING  LOSSES  (FT.) 
C 

TOTHL=  HT  +  HWB  +  HE 

SYSL=   TOTHL  +  HLP 

PMPWR=  .000352  *  GPM  *  SYSL 
C  TOTHL=  TOTAL  FRICTIONAL  HEAD  LOSS  FOR  CONDENSER  (FT.) 

C  SYSL=   TOTAL  FRICTIONAL  HEAD  LOSS  FOR  CONDENSER  AND  SYSTEM  PIPING(FT.) 
C  PMPWR=  TOTAL  SYSTEM  PUMPING  POWER  (HP) 
C 

A=  N 

OUTPUT(N,l)=  A 

OUTPUT(N,2)=  DSHL 
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0UTPUT(N,3)=  CONDH 
OUTPUT(N,4)=  BOXVOL 
OUTPUT(N,5)=  WET 
OUTPUT(N,6)=  PMPWR 
C 

C  *  *  *  *  CALCULATION  RESULTS  -  OUTPUT(DATA  FILE)  *  *  *  * 
WRITE(KOUT, 190)  QT, TOUT, TNT 
190     F0RMAT(1X,'.  .  CONDENSER  HEAT  LOAD:     ',E12.5,'  ( BTU/HR) ' /T2 , ' . 
1.  OUTLET  COOLANT  TEMP:      ',F6.2,'  ( DEG . F ) ' /T2 , ' .  .  TOTAL  NUMBER  0 
IF  TUBES:  '  ,F7  .  1/) 

WRITE (KOUT, 192 )  TOTL , AVGHW , AVGHC , AVGU 
192  F0RMAT(1X,'.  .  EFFECTIVE  TUBE  LENGTH : ' , T3 9 , F 5 . 2 , '  (FT.)'/T2,'.  . 
1  AVG.  HEAT  TRNFR.  COEFF.  C  .  W  .  : '  , T3 8  ,  F6  .  0  ,  '  ( BTU/HR-FT**2 -DEG  .  F ) ' / T 
12,'.  .  AVG.  HEAT  TRNFR.  COEFF.  COND .  :  '  ,  T3 8 , F 6  .  0  ,  '  ( BTU/HR-FT**2 -DE 
1G.F)'/T2,'.  .  AVG.  OVERALL  HEAT  TRNFR.  COEFF .  :  '  , T3 8  ,  F6 . 0 , '  (BTU/HR 
1-FT**2-DEG.F)  ' /) 

WRITE (KOUT, 194)  LTOT , LANE , DTB , ATB , VTB , DTS , ATS ,WEXP ,WMISC,LHW  , 
1  DPTHDR 

194  F0RMAT(1X, 'LTOT  =  '  ,  F 5 . 2  ,  T  1  9  ,  ' LANE  =  '  ,  F 5  .2  ,  T3 7  ,  ' DTB  =  ',F6.2,T5 
13, 'ATB  =  ' ,F6.2/T2 , 'VTB  =  ' , F6 . 2 , T 1 9 , ' DTS  =  ' , F5 . 2 , T3 7 , ' ATS  =  ',F6 
1 .2///T12 , '****  DATA  OUTPUT  -  WEIGHT  &  VOLUME  CALCULATIONS  ****'//T 
12,'WEXP  =  '  ,F7.  1  ,T19, 'WMISC  =  '  , F7 . 1 , T3 7 , ' LHW  =  '  , F 5 . 2  , T 53  ,  ' DPTHDR 
1  =  ',F5.2///T3  0, 'MATERIAL'  ,T4  7 , 'THICKNESS'  ,T64, ' WEIGHT ' /T2 6 , 'DENS  I 
1TY(LB/FT**3 )'  ,T49,  '  (IN. )'  ,T65, ' (LB. ) ' ) 

IF(INDEX1  .GT.  1)  THEN 
WRITE(KOUT, 195)  ITSD , TIS , WITS 

195  FORMAT  (T2  ,  'TUBE  SHEET '  ,T3  1,F5.1,T49,F6.4,T64,F6.0) 

ELSE 

WRITE (KOUT, 196)  OTSD,TOTS , WOTS , ITSD , TI S ,WITS 

196  FORMAT(T2  ,  'OUTER  TUBE  SHEET '  , T3 1 , F5 . 1 , T4 9 , F6 . 4 , T 64 , F6 . 0 /T2  , 

1  'INNER  TUBE  SHEET '  , T3 1 , F 5 . 1 , T49 , F 6  .  4  ,  T64  ,  F 6  .  0 ) 

END  IF 

WRITE (KOUT, 197)  TSPD , TTSP , WTSP , TBD , WTB , SHLD , TSHL , WSHL , HWD , THW , 
1  WHW,HDRD,THDR,WHDR,WDRY 

197  FORMAT(T2 , 'TUBE  SUPPORT  PLATE ' , T3 1 , F5 . 1 , T49 , F6 . 4 , T64 , F6 . 0 /T2 , 

1  'TUBE  BUNDLE ', T3 1 , F 5 . 1 , T4 9 ,'*.****', T 64 , F6 . 0 / T2  , 

1  'CONDENSER  SHELL '  , T3 1 , F5 . 1 , T49 , F6 . 4 , T64 , F 6 . 0 /T2  , 

1  'HOTWELL '  ,T3  1,F5.1,T49,F6.4,T64,F6.0/T2, 

1  'WATERBOX '  ,T3  1,F5.1,T49,F6.4,T64,F6.0//T2 

1  ,'.  .  TOTAL  CONDENSER  DRY  WEIGHT=   ',F8.1,'  (LB.)') 

WRITE (KOUT, 198)  WET ,TONS , CONDH , DSHL , BOXVOL , DRY CG , WET CG , TOTHL , 
1   SYSL, PMPWR 

198  F0RMAT(1X,'.  .  TOTAL  CONDENSER  WET  WEIGHT=   ',F8.1,'  (LB.)'/T35, 
1F6.2,'  (TON) ' //T2 , '  .  .  TOTAL  CONDENSER  HEIGHT=  ',F6.2,'  (FT.)'/T2, 
1'.  .  OUTER  SHELL  DIAMETER=    ',F6.2,'  (FT.)'/T2,'.  .  ENCLOSED  BOX 
1V0LUME=    ',F7.1,'  (FT**3 )' /T6, ' DRYCG  =  ' , F6 .2 , T2 4 , ' WETCG  =  ',F6.2 
1//T2,'.  .  CONDENSER  FRICTIONAL  HEAD  LOSS=  ',F5.1,'  (FT.)'/T2,'.  . 
1TOTAL  SYSTEM  HEAD  LOSS= ' , T3 8 , F5 . 1 , '  (FT.)'/T2,'.  .  TOTAL  SYSTEM  PU 
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1MPING    POWER='  ,T38,F5.  1  ,  '     (HP)'///) 
10  CONTINUE 

WRITE(K0UT,200) 
200  FORMATC 1 ' ,T26, '****    DATA    SUMMARY    ****'// T4 ,' CONDENSER ', T 1 6 ,' SHE 

ILL'  ,T2  7 ,  'TOTAL'  , T3 6 ,  ' ENCLOSED  '  , T 4 8 ,  'TOTAL  WET'  , T61  ,  'TOTAL  SYSTEM'  / 
1T5 , 'NUMBER'  ,T15 , 'DIAMETER'  , T2 6  ,  'HEIGHT'  , T3 5  ,  'BOX  VOLUME'  ,T4  9 , 'WEIG 
1HT'  ,T60, 'PUMPING  POWER' /T16, ' (FT. ) '  , T2 7 ,  ' (FT.  )  '  , T3 6 ,  ' ( FT**3  )  '  ,T50, 
1' (LB.) ' ,T64, ' (HP) ') 

i 

DO    90    N8=    1,    NCOND 

WRITE(KOUT,2  02 ) ( OUTPUT ( N8 , J ) , J= 1 , 6 ) 
2  02  FORMAT (T 6, F3 .0,T15,F6.2,T2  6,F6.2,T3  6,F7.1,T49,F7.0,T63,F5.1) 

90  CONTINUE 

STOP 
END 


-87- 


APPENDIX  B 

CONTENTS 

Page 

Properties  of  Multiple-Helix  Internal  Ridged  Tubes.  .  .  88 

Friction  Factor  Characteristics  of  Multiple-Helix 

Internal  Ridged  Tubes 89 

Friction  Factor  Curves  for  Multiple-Helix 

Internal  Ridged  Tubes 89 

Operands  for  Friction  Factor  Equation  versus 

Geometric  Aspect  Ratio  e/l  for  Multiple-Helix 
Internal  Ridging. 

p/d^O.36 90 

p/di<0.36 90 

Nu  a 4  Versus  a/p  Ratio  for  Axial  Fluted  Vertical 

0  Tubes 91 


TABLE  5 
Properties  of  Multiple -Helix  Internal  Ridged  Tubes 


.88 


Symbol 


A 

> 
V 

< 

A 
► 

o 

o 
< 

D 

a 


o 


o 

© 

0 

© 
o 


Symbol 


A 
> 

V 
<1 
A 
*> 

▼ 

o 

o 
<1 

a 


O 


O 
o 
© 

© 


Tube 
no. 


Nominal 
diameter,  in 


Root 
diameter  </„ 
in 


12 
30 
22 
27 
28 
31 
29 
38 
37 
40 

41 

9 

21 

19 

44 

43 

42 

46 

45 

13 

32 

25 

24 

23 

26 


i 

\ 
\ 
I 
i 
3 

I 

3 

I 
i 
i 
i 
I 
I 
I 
3 


Internal  ridging 


Height  e, 
in 


Pitch  p, 
in 


0.0125 

0.0162 

0.0165 

0.017 

0.019 

0.0198 

0.0207 

0.018 

0.0200 

0.0175 

0.0215 

0.0204 

0.017 

0.017 

0.021 

0.021 

0.024  » 

0.021 

0.015 

0.0178 

0.0193 

0.0205 

0.0205 

0.0205 

0.021 


0.475 

0.279 

0.320 

0.385 

0.475 

0.287 

0.469 

0.212 

0.166 

0.170 

0.138 

6.191 

0.391 

0.285 

0.207 

0.124 

0.0949 

0.094 

0.094 

C.333 

0.335 

0.340 

0.330 

0.338 

0.340 


0.623 

0.627 

0.625 

0.622 

0.624 

0.624 

0.625 

0.633 

0.624 

0.627 

0.628 

0.628 

0.740 

0.745 

0.627 

0.628 

0.626 

0.627 

0.627 

0.883 

0.877 

0.880 

0.878 

0.880 

0.864 


0.0218 

0.0282 

0.0288 

0.0297 

0.0332 

0.0344 

0.0360 

0.0315 

0.0348 

0.0312 

0.0376 

0.0355 

0.0249 

0.0246 

0.0366 

0.0366 

0.0419 

0.0367 

0.0260 

0.0217 

0.0234 

0.0253 

0.0252 

0.0251 

0.0258 


Fin 
count, 
fins/in 


Outside 

area, 

ftJ/ft 


ID 

(max)d,, 

in 


No.  of 
starts 


(Stripped) 

26.4 

26 

26.5 

26 

26.6 

26.1 

38.0 

38.5 

27.3 

38.1 
38.5 
26 
(Stripped) 
41.0 
41.0 
41.0 
41.2 
41.2 
26 
26 
26 
26 
.26 
27.3 


0.163 

0.640 

0.640 

0.640 

0.640 

0.640 

0.640 

0.830 

0.901 

0.689 

0.852 

0.901 

0.640 

0.195 


0.901 


0.841 
0.871 
0.841 
0.841 
0.841 
0.841 


0.573 

0.575 

0.569 

0.572 

0.573 

0.576 

0.575 

0.572 

0.574 

0.561 

0.572 

0.575 

0.684 

0.692 

0.574 

0.573 

0.573 

0.573 

0.577 

0.820 

0.825 

0.816 

0.814 

0.816 

0.815 


Internal  aspect  ratios 
e/dt  e/p 


P/d,- 


0.0263 

0.0581 

0.0516 

0.0442 

0.0400 

0.0690 

0.0441 

0.0849 

0.1205 

0.1029 

0.1558 

0.1070 

0.0435 

0.0596 

0.101 

0.169 

0.253 

0.223 

0.1596 

0.0535 

0.0576 

0.0603 

0.0621 

0.0607 

0.0618 


0.829 

0.485 

0.558 

0.673 

0.829 

0.498 

0.816 

0.371 

0.289 

0.303 

0.241 

0.332 

0.572 

0.412 

0.361 

0.216 

0.166 

0.164 

0.163 

0.406 

0.406 

0.420 

0.405 

0.414 

0.417 


5 
6 
6 
6 
5 
6 
5 
8 
10 
10 
12 
10 
6 
6 
6 
10 
10 
10 
10 
6 
6 
6 
6 
6 
6 


ID  of 

envelope 
tube,  in 


1.000 

1. 000 

1.000 

1.000 

1.000 

1.000 

1.000 

1.000 

1.000 

1.000 

1.000 

1.000 

1.2348 

1.000 


1.000 


1.5936 
1.5936 
1.5936 
1.5936 
1.5936 
1.5936 


-89- 


TABLE  6  Friction  Factor  Characteristics 
of  Multiple-Helix  Internal  Ridged  Tubes 
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FIGURE  11  Friction  Factor  Curves  for 
Multiple -Kelix  Internal  Ridged  Tubes 
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FIGURE  12a 
Operands  for  friction  factor  equation  versus  geometric  aspect 
ratio  e/l  for  multiple-helix  internal  ridging  with  p/d->  O.36 
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FIGURE  12b 
Operand  for  friction  factor  equation  versus  geometric  aspect 
ratio  e/l  for  multiple-helix  internal  ridging  with  p/d. <  O.36 
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Nu  a4  vs.  a/p  for  Axial  Fluted  Vertical  Tubes 
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